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beigebliehen 
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e QL- und 11 


Freuen diirfen aich dagogen da 


20 Seiten - das 1st pan? schc 


n beanhtlich. 
zung erhalten. 


Auch die Atari-Frcaka haben , 
Verlag eine weitcro Unteratiit 
Daa neue MAUI maqazin, dee a 
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FUr una persb'nlich gibt es so 
Jubilaum tu fciern. Computer 




iner ist unter 
bfsnndcis danker*. 


Dieann Lraecn^Hchte^ch Sanz 


unscr Heft auch weiterhin an put qefallt. 


Bia zum nachsten Mai 
Ihr 
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INHALTSVERZEICHNIS 



INHALTSVERZEICHNIS BeiunskonnenSie 
mitmachen 

Compuier-Komakl ist die Homo uomputerzei rung 

vim! Milmadie-ri. ^:i: korvu-ii hci mis Programme eiri- 
sendsn. Buchcr Ivspreuiien. Sjiiclt busulireihen. Tip. 
"lid I rit-ks si-riii-kt-n . l-'ragen *k!ka und Ihre Meinung 
sagen. Wir Imben f'iir alii- ein offunes Ohr. Damil wir 
aber line ELnscndung sclirtoi] btaiheiten k5nnun und 
alles mil Tt-u-hten Din^n /uguhl. miisseu Si-; t'okonde 
Punkte beachten : 





CK-Progranwwervice 4a 


Atari-BuchvorMnc 64 


Topprogramm 61 


Kleinanzeisen 101 




106 




ZX-Spxamm Mascbmenscraaiekiirs 


12 


A^.anh.ir.us-urdanSpKhum 




Inrerscript 


IT 




SpMelisting : Tims Racs 22 






Taa=rea 5 26 


AND-.OR-.XOH-SBmJaton ■■ 27 


Lasarfragen 27 


INPI.IT AT bairn Spectium 


28 


ZX-31-BBrhylhmus 


30 


DeFWefurdenZXBl 31 


□» Situation des (X. in Deutschlana 


32 


Fw.ft-Wuenjae in 3m»rt»stC 33 


OL-Pantne 33 


Ca.Pro^mafOxtenOL 35 


GMbkuMBrMCM 
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Thr B 



1. Guhi; n Sie °enau iin, welches Geriii Sie haben. 
■ Laiiir das Pio.tr., mm nti mil Sjiukiiururweiierun- 
gen oder Ztisal/geratcii. mQssai dicse unbedmLii 
.ingugi.hen werden. 

t. Zu jedem Ptograinin sollte cine Progrummbe- 
suhrcibung beilisgen. Diese kanil mil der Schreib- 
imndihie oder mil einem Drucker gesdiiKibun 
sum. Der Ztiiuiiabsland mufi 2 ,/dk-n beJ-aiieii. 
dami! nooli Korjukluren uder AiKiiurkunaen ei !!;;■■ • 
I'tiji v.iiden konnen. 



Sie 



■. Zu jedem Programm gchort gruiidsatzlidi 
Sims ""d sine Caisulle odei'Diikelte. We 
dx-r kdnen D;ii,;kir liiiben. rendu in. oh der Dn:n 
iiikur. Speidiern Sk i!ur Sidiir heir da- Proaramni 
zweimal ah. Casiullcn und Dis.riien konnen wir 
nurzuriicksenden. wenn RUckporlo beiliegt. 
■. Berichie. Spiel etiesdsrdtuinGirii und Buchbespre- 
'- chungen mussen cbenfalls zweizeilig geschriehen 
werden . 

6. Wenn wir ein Programm von Ihnen abdrucken, ver- 
giiten wirdnHonorarfiir deneinmaligen Abdruck 

1 und die Nutzung dss Progiamms in unserem Cas- 

| seltenservice. Die Hiihe des Honorars riditel sith 

naeh der Lange und Uualitat des Prounimms. Wir 

vergiilen im alkumdren bis im .100 DM, filr sehr 

gnte Programme kann es auch mehr sein. 

7. Mit der Einsendung gi]-.i dcr Verfasscr die Zustim- 
mung zum Abdruck und erklart, daB er Urheber 
der Teste und Programme Ki und das uneingc- 
schrankte Nut7Lms~ired.it aar;-.n btsitzt. Sollce der 
Einsender Programme einschicken, an denen cr 
kein Urhebeiredn und kein \u1i-.imgiredii hesiwi 
rial er bei Abdruuk durdi j:is ciwaise ^uh:.dc:i'-.v 
salzanspriidie tun seiren Driiturbelbstzulragen. 



Die nachste Ausgabe 
^Computer Kontakt 
erscheint am 303.1987 



TOPPROGRAMM DES MONATS 



Topprogramm 
"Text LBas" 

fur den Atari 800 XL 



Die-es Tcvcvi-isihc'iiLin^-proci.imiH fiii den Ainri SIX 
XT. isi beriienungslVetmdlii-h und 'claliv schncll Gc- 
serine ben hat e^ Hnuke Siemens, h.riil 3\ Jahrealt und 
wlbsiiir timer Radio- und " 
Seine criten Erfilhrungen 
ZX81. Dann folgte 1984 ei 
werk. iiuf dem Haukt sti- 
nt beLrieblieht Lagcrvcr- 
waltung und Fakturie- 
rung abwickelt. In Kiiize 
rdings em PC fol- 



:rfur 






Aufgaben ix;~scr ge- 
eignei ist. Der Alari 

S00.XI. .vird jedoeh niflii 
itti-cenuj.ieri. sontleni in 
■;r We.kitnlt fiir Me.S- 
id Uberwachungsaufga- 




lOOODMHonorar 



In der CK gibt es das Toplisting Das lilutt so, daft 
\iir hie i in tie; Kcdakiion von alien Proimimriidineri- 
dungen das besle Programm heraussuehen und in der 

< :■■ ::; : '■■; : - ■:■■■ ■■.!. .:. .-.k.-;: I ■■ ■ '■.:■:■ ■ ■:.-,.,.■ ;■■■■■ 
gnunms erhslt dann als Honorar 1000. -DM. 

Mitmaclicn konnen alle Programm ie re r mil den Go 
raten. Atari, Sinclair und II W/4A. Ein Listing muB 
nichi unbedingi beiliegen, falls der Autor des Pto- 
gramms noch keirien Drucker bat. Werden Program- 
me abgednickt, die nicht zum Tuplisting gewahli uur- 
den. erhiik der Autor tlafiir ganz normal d.i. ablidie 
MonMSr. Bchi Toplisltn^ ist das Horiorar fiir den Ab- 
druckin den 1000.- DM sehon enthalten. Mil der Ein- 
senilung seines Programme erklart sicli jeder Autor 
mil den einzelnen Punkten im Text "Bei uns konnen 
Sie mitmache.il" einverstanden (siehe Seite 4 geisen- 



■ l.euie auigepalii: Bei uns kann man Geld 
Die Chiincen fiir eiueu Abdruek, odergar 
ties Ibplisiings ?u we, den. stehen bei uns 
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ZX User Club Spectrum 

Konstanz QL-Cluu 



Hallo Atari-User! i.Baden-Badener 

«i„», .,,«..,.«. w,.«j,.iAc,a-u,.,.ji, Computermesse 

• ■ ' ; * i bi». 

Pel KS-O.mpu^r-Clul: .a 
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CLUBNACHRICHTEN 






.aupu.lLhik'J] [ul^tnik- 



li alle 1 den sindjcdi 
>rogram- Ruckportos 



Spectrum ™ rRMisanwxtwi n 

Dvi-ifi 1*1 iih Allspiuch NL-SiriKn: JirCompL! 
PrOtl UlUD .,„v| .], hler kebe Rolfe 

i Clul' en .itii /N.iiramtn ;u:iusi! r V iDFHOCAj 


iis— 




Atari User Club 
Solingcn 


Wer sucht noch alte 
CK-Hefte? 


;S§S|C 






,".! !£,!■!■: dLUL'7 \uv 






Bestellschein far CK-Hefte 



...Ei.He[iMSr;(4,SUDM) 
...Ei.II<sltApril{4,5CDM| 

...&i.HcftJuiii(4,50DM) 

...ti.HefUt.li (4,50 DM) 

... Lj HdlAugu!i-Scpismbci(4.WDM) 

...Ei.HcftOkt<.l>er(4,»DM) 

- BE lien Fctouar-Maix (5,50 DM) 



Meine Anschiifl: 



Die Gewi nner! 




Heft ] (1-1 1^6 bctciliglcn sicli 










1. Frets: 1 Philips VG MM 








1. Prtlv Richer im Wen van S*,- 








3.-10. FTtis;Jt*M Bin* 














r. 13, 6149 FurdVOdw. 
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, 8972 Sonthcfcn 


Andreas Wachtel, MUUM-THuria 


W tg !0,K7TIJLohramMain 






11 SGQ PhilippsEbal 


l.i.u'-. ■.k.n-.bicr. Marien binder : 




MikcLictenan. I.£i:l:-, ,:,-.- M,. - 


1000 Berlin 47 


Wolffruiskimn, 


JWGoitkigcn 


















7! ■,«,ui>ltu., i ]ii,ki. Mel whaler W 


825,413!) BuctHiml 
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VJ/ sinclairr %T 


Hallo Freunde, 
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i,s sss; s - ™B5iS*5 





Pyracurse 



Roller Coaster 
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SINCLAIR 




I "Light- die rira|ik und dlf j^ojiHg. 

ElienuniidKi JicSun-v Der ablauH. Mjn sulfte imbohi^ [L . . 



SINCLAIR 



Max Headroom 






acij£j=53(£;i!@ „ Q „ „ a ., c im ss£> D = 

KlSG°2[3TfiIi31?Siga BK2 QSB, 

ID ..n..isiii as©.," 

:, bedruckte Tauten 



slim SMPtER — m iFJt. 

Tint, incl.Hikrofon 




Maschinensprachekurs 
auf dem ZX-Spectrum 

Teil 5 : Interrupts, Block- mid Ladebefelile 



Ein-bzw. Ausgabc.V 






l[i^:lih.[^ nn.i .!lti 
Adrcsse ssMklei 






..■ ■,!■.!■ I ../-'■ i .■■,-. 



Die verschledeoen Inlernipt-Mechunism 




Art AuslosunjiiTiJW.rk^ns 


Befehk 






■"" s^ssss™- 


RET. 
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Modus Sprang zurAdresscOtl38h 


S 


M.d., »7*-* a ~;s, b «^, Id 


LDl.n 






lusgeflilirl. durclTO' k.'n-ri:'icii^ Zi 
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(SP),IXuiidEX(SP),]' 



RuHlinen bei den im ROM stehenden 



peichf rplntzvon BC Langc 



^■-■1^■.l l>;i; Fr£i:hi:i' ::[il-nridil 






Die lerschicdciien Bluekbefehle 


|!?-* 


sss 


DECHL 


— 


Narrta.H.ustSh.a, 




k "Ima<I^T~ — 


i 1 


Si 


DECHL 


«, 


ftffpttmSWuB&n, 










ssr 


il 


«* 


Nwenimriiinllhien 










ss, 


DECHL 




HMHlin, 






«SSS^1 












i, lOh. 1 



iidijik liicrdic Rcc i (■■■ l m'. ,11 ,i., .■!.■!, | . ,i ..,. ,i. ,' 

A.MiliiMi finer /air mil ilimn ,-in CALL 2Uh Die illiK-J.l.fk- Keilii.n /.,k<. tl=clli 
Ko-T!|.'L'riH':il illliner FFh it- :c labelle filil Alisfcmi1[ ills-r gybes V.:rl:i£. urn] I Li 



TCSeB 



■l JS J 



Deutsche 
Spectrum 

Software 



Assemblertips fur den Spectrum 



Teil 12: Mehr Sound 



l muB also (I!t«o-i ZiiFaliutalilen. 



i L ' iibriizcn Uii- ■-'ru: von fje- 



n rlick^e-Ki^ppelie-q >c!i l- 



iJ*.-ie !-ji Spule cischcirit cs Jinp& bi 1 



jten. PRINT USR 647S0. string 






imShuchstabcn. lien 






■itig CPU nnC Vidcocbip dicw 



zerhacktc PFOgrjsmmah- 
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Assemblerlisting 


Ij; ; ; irjls:'"r --■ |k~ :rs-,£r:.i:. 



SINCLAIR 



MC -Generator 



r Sound program *HHf 



20 EEF F 



'=COLE X*-48-; 
=16#FN A<X*(1 



25 DEF FN EI> 
• FN A(X*(2» 

30 RESTORE : CLEAR 64749 

40 LET A=64730 

50 FOR Z=1000 TO 1050 STEP 10 

60 PRINT -2eil» ■IZS": "I 

70 READ A*: LET S=0 

80 IF LEN A«<4 OR LEN A*/2<>IN 
T (LEN A*/2> THEN GO TO 200 

90 FOR 1=1 TO LEN A*-2 STEP 2 
100 LET X=FN B(A*(I TO 1*111 
110 LET S-S+X 
120 POKE A,X: LET A=A+1 
130 NEXT I 

140 IF FN B(A*(I TO > ) < >S-236+I 
NT (5/256) THEN GO TO 200 
150 PRINT ■□!<■ 
160 NEXT 2 



Computer Kontakt 2-3/ 



180 f 



f USR 64750, "T 2000 5 - 



190 STOP 

200 PRINT "fehlerhaft!": STOP 
1000 DATA ■e7cd8cic**a02fl7383a4 
85clf If lfe6070Bcdfl2bd5dd elf 3063 
4210fffaf772310fced7b3d5ccd22fdf 
bcddcfeda761bfbcf09cddcfedSfe29c 
8d d 232 1 f af *01 0700*d b 1 20e a ? 909 393 
94e23462 1 22* de3c5f e04380f cd70f e3 
8d3d3cd8bfe38cf424b4f 
1010 DATA 'dic906*+2t?25ce5cd8bf 
e047 323722 330f 6e 1 7ab37 82005 f e032 
00 1 3d 5e2336 2 34e 23462 3c 54e2 34 6e 1 c 
5 d 5d 9 d 1 c 1 c 9 7 02 b 7 1 c 9 eb09e b 72 20 7 3c 
9ebed 4 2 1 Bf 6 d 602 77c83d 2 00 f 362bc b 7 
BcB3623676fed42444dc93dc21ffd7ab 
3c 8c d 6 1 f e06b323 I0f dc B ■ 
1020 DATA -Ibl8f23d20eccddcfe38e 
7f e 2820e3d d 237ab328 1 d d de3d 5c d 22 f 
ddllb7ab32804d delisted led defeSBc 
7 f e 2 9 2 c 3 d d 2 3c 90 6 1 d d 7e00 a 7 c a 1 f f 
d d d 2 3f e 29 200203c B f e2820e d04 1 Be a2 



Ilafecd92fd6069d9444d0b78bl20fbc 

d5bfed92b7cb5d9200555" 

1030 DATA '00d9fi069d91b7ab320e5c 

92 1 4* f ec d 92 f d 6069 1 e53d 3d94 44 d 0b7 

Bb 1 204 bd9e37b0707ac 1 f cbi 3cb 14cbl 

3e3d c 3bf e2 b7c b5d 9200300d96069d 9 1 

b 7 a b 3 2 d B d I c 90S ? e 1 0d 3 + &08 3 e 7 f d b + 

elfd83efedb4el4d8fbcf 14cddcfed8d 

661dB4ela34dBdd2317c3' 

1040 DATA "210ff4856f3001243e235 

6n7r9cd(ic+ed8d90e00cdf04e301ffe2 

d 2009c: b 1 3 B 1 30d d d 2 3 1 8 ee c fl 70 + e3 80 

90c 20066169ed52eba7d5d9dlc91 1000 

0cdf0+e3+30eadd23cb23cbl2626bcb2 

3cbl2rb23cbl219d630B56f300124ebl 

8dfdd23dd7e00fe01dB0d" 

1050 DATA "fe202Bf4fe2c2B40fe3b2 

Sec a7 c 9d d 7e00f e 30d 84 e 3a34 c 94c 304 

d 585 754 52254 e004 e a7f fl b 94 d 8d f d 864 

dS2fdlf ■ 

9000 SAVE "sound rode'CODE 64750 

,545 



Interscript 



LiUiffcSirifl =." IV - -.- 1 " I - ill. \il*;n- 






,8 SINCLAIR 
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Interscript 



1 INPUT ■ STARTADRESSE ? '1ft 

2 FOR B=l TO 25 

3 RESTORE <B+2B> 

4 LET C=8 

5 FOR D=l TO IB 

6 READ F 

7 POKE A,F 

8 LET C=C*F 
? LET A=A*1 

IS NEXT D 

11 READ 

12 IF COG THEN PRINT FLASH 
U'FEHLER IN DATAZEILE ■JB+ZO'-Q 
ELESENE PRUEFSUMME: " IG' "ERRECH1 
ETER WERTl "iC: BEEP .1,8: STOP 

13 PRINT AT B,9;"OATAZEILE "IB 
+ 2BI' O.K.*: BEEP .1,18 

14 NEXT B 

13 60 TO 9999 

21 DATA 24,49,24,119,24,7,24,3 
8,237,75,621 

2Z DATA 231,233,281,243,17,137 
,8,197,225,25, 1551 

23 DATA 34,245,253,62,195,59,2 
44,255,62,24,1426 

24 DATA 58,255,255,62,39,237,7 
1,62,8,38, 1189 

25 DATA 254,233,237,94,231,281 
, 243 , 237 , 7 B , 25 1 , 2893 

26 DATA 261,223,231,62,3,245,2 
31,285,138,28,1559 

27 DATA 283,153,38,241,197,61, 
32,243,193,121,1476 

28 DATA 167,40,21,111,254,33,4 
8,16,193,89,972 

29 DATA 129,56,11,254,33,48,7, 
193,121,87,939 

38 DATA 254,24,56,2,287,9,125, 
5B, 253, 233,1235 

31 DATA 131,95,213,193,128,15, 
15, 15,239,224,1251 

32 DATA 129,111,120,238,24,246 
,64, 183,43,34,1184 

33 DATA 247,255,281,223,231,23 
1,285,138,28,283,1956 

34 DATA 153,36,237,67,249,255, 
237,67,251,255,1881 

33 DATA 281,245,197,213,229,22 
i , 229 , 253 , 229, Z33 , 2272 



36 DATA 243,42,247,255,6,8,38, 
253,253,79,1446 

37 DATA 197,229,283,22,43,13,3 
2,256,223,283,1417 

38 DATA 134,36,193,16,241,58,2 
54,253,61,38, 1296 

39 DATA 254,255,32,52,62,8,58, 
234,233,237,1459 

48 DATA 75,251,255,18,254,255, 
32,18,237,73,1434 

41 DATA 249,235,237,67,251,255 
,24,28,3,237, 16B6 

42 DATA 67,231,255,111,36,8,41 
,41,41,237, 1882 

43 DATA 91,34,92,25,237,91,247 
,255,6,8,1186 

44 DATA 126, IB, 28, 33, 16,258,25 
3,223,221,225,1389 

43 DATA 225,289,193,241,251,28 
1,8,8,8,8,1328 
8999 REM INTERSCRIPTDEMO' 
9886 LET A=PEEK 23728+ 256* PEEK 2 
3729! REM ADRESSE DES MC HOLEN ! 



9818 LET A»=-Dios i 


t ein Demo v 


on Interscript, 






werden sol 1 , ua 






rn moegl Ich 1st! 






n Sondeneichen 


<*<; 


>eas«u-+.,*/ 


7#:!5tJ*-/0:'O iiS 






s gegebe n werden 




1. selbstde* ini 






eJH'i REM Ausz 


idru 










9828 RANDOMIZE 


JSR 


: PRINT 23,7 


,161 REM an der 


Pos 


tlon 23,7 


soil der Text 


in 16 ZeicbenBrei 




rden 




9838 IF a>=6898B THEN LET b=3Z8 


88: GO TO 9838: 


REM 


Bel der Text 


- abl atje soil es 


zu keiner Kolli- 



9848 LET b=6ieee: REN umn MC 

unter Adr . 66868 Jiegt! 

9838 LET a*»a*+CHR* 233: REM 

Eine 255 als Endmark ierung an 

den String anhaengen!!' 

9868 FOR c=l TO LEN a*s POKE b+c 

-1,C0DE a*(c)i NEXT t! REM 

und in den Speichor poken! 
9876 RANDOMIZE USR Ca*Z)I PRINT 
b: REM Adresse des Strings im Sp 
eicher uebergeben. Es koennte au 
ch die richtlge Adresse von a* 
uebergeben werden I!!!!! 
9898 RANDOMIZE USR <a+4>! REM 
zum Schlu*» noch den Interrupt 



91BB LET 7=USR <a+S): If zCb+LEN 
a*-l THEN GO TO 91BB: REM wart 

en bis String Qanz ausgegeben is 

t 

911B RANDOMIZE USR <at-6)s REM In 

tsrrupt ausschal tan! 

92 Be STOP 

9999 LET A=A-25B: LET AH=INT (A/ 

256): LET AL=*I-(256*AH): POKE 23 



7Z8,ALi POKE 23729 ,AHs CLEAR ! L 
ET A=PEEK 2 3 72 B+ 2 56* PEEK 23729: 
PRINT AT 18,7i"SAVE !": SAVE -IN 
TERSCRIP- LINE 1: save: -intbcrco 
DE-CODE A, 259: PRINT AT 10, B; FL 
ASH 1;" VERIFY ! 

■t VERIFY -INTERSCRIPT-i 
VERIFY ■INTSCRCODE-CODE A, 258: 
RUN 9BBB 



Die Parallelschnittstelle des Discovery-Laufwerks 



AiivrS- luB cines R S- 2', 2- D nicker 



iict:^ysLE[ii ,il>. Injure 



SO (S3001| *M. Da (lie al! Riiigans p- 



I 'i'^^.;;' Heslizer wahr- 




|BIN tsm.TEXT) weiden in 



MC-Generator 



Discovery spricht 



it«kt 1936 



10 DEF FN A(X*!=CODE X*-4B-39# 
20 CLEAR 64999: REM An-fangsadr 
30 LET A-63000: REM An fangs ad r 



260 LET C-INT (134217/Baudrate- 
1.5) 
270 GO SUB 320 
290 RANDOMIZE USR <A+2> 
290 POKE A.Zeilenbrvite 
300 PRINT "Naschinencnde ist ok 

310 STOP 

320 LET M=INT (C/256) 

330 POKE B,C-236*N: POKE B+l.M 

340 RETURN 





40 LET 8audrat»«4B00 

50 LET TS=3: REN Stromnr. fu»r 


Assemblerlisting 




Tmtkanal 




ORG 65BB8 




60 LET BS-4: REM Stronnr. fuer 










i HI Serielle Druckerschnittstal le *** 




70 LET Zeil»nbr»ite=80 


! *** ftlr Discovery 




80 PRINT "Bitte unen Moment H 










CURCHL = 23633 




90 CLEAR II : OPEN BTSl'f: OPEN 


mm 


■ 23631 




HBSl 'b* 








100 LET AC- I 2000dd2a415c011400d 


BP.TE 


NOP iEruckbreite 




dfl9d d 7e00f eB0c 8 d d 7a042 1 - - 94 * e422 


, ■ 


NOP iaktuelle X-Position 




807 * »5420092 I - - 3+ d d 7500d d 740 1 d d 4 








B05tHI46061Bd9I l--3f 18031 1--302»5 


PREPR 


LD IX, (CHANS) iEoschr. der Stan- 




15c732372c957fa0d200d3e0dcd--94» 




LD BC,£0 idardkanale lifierepr. 




f32--013»0aia43d6»5d2100c7a*dcb0 








186+e202004fdcb0Ic63011*al03819+/ 




ADD IX, BC 




el633e8*elB3011il" 




LD A,IIX*0) jSnbald Endenarke 




110 LET A*=A**"--3518c2+e74380» 




CP «80 ierreicht ist, 




■fe903804d64f 57011 63+21 --005e7ba7 




RET Z Hertig. 




2807 2 37eb b d 4 - - 4 434 7ae5d32f 4* c d0S 




LD A, IIX+41 




17060ba+f 321033036382d360-F2c363c 




LB HL.BIN |Bei B-Kanal die 




2d 773e7f dbf e 1 -f 3B0d3*f edbf e 1 + 3806 




CP •*• iAdresse BIN, bei 




Cd4817*bcfl47ee64028e?3602ed5700 




JR Z.KBIN [T-Kanal die Adresse 




Illa001b7«b320tb79cb3917e6020077 




CP 'T 1 [TEXT als Adresse 




10ee+bdlelc34ei7' 




JR NZ, NEXTK ider Ausgaberout i ne 




120 LET B=A: LET S-21129 




LD HL.TEXI (eintragen. 




130 LET X-16+FN A(A*(1>)+FN AtA 


KBIU 


LD iiXIBi.L 




4(2)) 




LD (IXHI.H 




140 IF A*( TO 2)-' — ■ THEN 6Q T 


NEXTK 


LD C, IIX*5! |Lifl9e dea Kanalein- 




190 




LD B.IIX+4) Itrags in BC. 




150 POKE B,X! LET S=S-X 




JR PLODP 




160 LET A*-A*i3 TO IS LET B=B+1 








170 IF A«>"' THEN GO TO 130 


I SMC 


LD DE.TEXT (Diesen Character 




1B0 GO TO 230 




JR IGN lignorieren. 




190 LET C=A+16*FN AtA*(3))+FN A 


IW1 


LD DE.IGN0 IDiesen und den 




(A*(41) 


EON 


LD HL,(CURCHLI|Fiachsten Character 




200 GO SUB 320 




LD (HL),E lignorieren durch 




210 LET A»=A*(5 TO ): LET B=B+2 




INC HL ikurizeitiges Andern 




220 LET S=S-C*fl: GO TO 170 




LD <HL),D ;dtr Ausgabeadresse. 




230 PRINT 




RET 




240 IF S THEN PRINT 'Fehlor in 








A«!-I STOP 


TEXT 


LD D,A iCnaracter in D. 




250 LET B=A*203 




CP WD 



JR NZ.NOCR 
CALL BIN 



LD HL,£3003 



LD (HD.SBF 



JR BIN 
NOCR SUE 163 



RES B, IIY+ll 


(Blank-Flag in den 


UAIT 


LD A,*7F 




CP ■ ■ 


(Systemvariablen 




IN A.SFE 


PrU+en, ob BREAK 








RRA 


geflriickt iat, also 








JR C.NOBRK 


CAPS SHIFT und 


JR NC.CHAR 






LD A,*FE 


SPACE gieitnieitig 


CP 16 


;A) le Character nit 




IN A,«FE 




JR C.FRAGZ 


(Code < 32 nerden 




RRA 


Bei positives Er- 


CP 22 


llgnoriert (auBer 




JR C.NOBRK 


gebnii, Spectru»- 


JR C,IGN1 






CALL *1748 




CP 24 






EI 




JR NC.FRAGZ 






RST 06 


beachten und Meld. 


LD DE.IGN1 






DEFB *M 




JR IGN 


Ceichen eri;et7t. 








CP 127 


[Blackgraphik als 


NOBR 


LD A,(HL) 


Byte von Port lese 




(Fragezeichen. 




AND $40 










JR Z.UAIT1 


Drurker nirht 


JR C.FRAGZ 


i Graph i kbuchstaben 






enpfangsbereit. 


SUB 7<t 






LD <HLI,2 




LD D,A 


1 Buchstaben . 




LD A, I 




DEFB 1 


I ■ JR OK 




HDP 


gen tiir die ge- 
MUnschte UeriSger. 






BIT 






LD HL.BRTE 


IBei (BRTEJ - 


WAIT 


DEC DE 


eingescftrleben, be 


LD E, <HL) 


(keine Zei lenlingen- 






stirat Baudrate. 


LD A,E 


(kontrc-Me. 






Eine Bitlange in 


AMD A 






JR NZ.UAITZ 


Her SchleHe laul* 


JR Z, IGNLN 






LD A,C 


Den Character inkl 


INC HL 






5RL C 


ami stoppbiti Bit 


LD A, (HL) 


INeue Zeile, Jails 




RLA 


fUr Sit Uber die 




iZeilenende 




AMD 2 


Dl -Lei lung 


CALL NC.PRCR 






NOP 


auageben. 


INC (HL) 


HXPOS] inkrenent. 




LD (HL),A 


Insgesant 11 Durch 


LD A,D 


(Character In Akku. 




DINZ BIT 


ISute 11 Start- • E 
Daten- + 2 Stpbit) 


PUSH HL 


|HL und DE retten. 




EI 




PUSH DE 


(Die Bits d» Char. 






annehnen, DE und HL 


CPL 






POP HL 


Mlederherstel len. 


LD C,A 


i invertleren fc in C. 




JP *174B 


Spectrum-ROM wieder 


CALL 41706 


(Discovery-ROM ein. 






einpagen und Riick- 


LD B,ll 


ill Bit sind ausiu- 




END 


kehr ins Basic. 



i 
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Time-Race 



Spieler mull vcTSbclunl, mo 

doch zuvor abgelaulen sein. ! 



216 IF IN 31=2 THEN LET yl=yl- 

229 IF IN 31-4 THEN LET xl-xH 

230 IF IN 31-B THEN LET xl-xl- 

248 LET t=t-ll IF SCREENS <xl.y 

THEN GO TO 33B 
258 IF SCREEN* Cxl.yiJ— ■»" THEN 

GO TO 320 
278 PRINT AT *2,y2i" ■] IF K8 
HEN GO TO 42B 

2BB PRINT AT xl.ylj BRIGHT 1;"* 
: IF pp-1 THEN 00 TO 348 
Z?9 LET. *2=xll LET y2=yl 
PRINT AT B,6iti" ■ 



319 C 



TO 100*s 



■ii:.! :n (k- 


DATA-Zeilen at „„, jf jtunAtn :l„ 5|>i(te ,u 


32 8 


LET Xl=x2l LET yl=y2] GO TO 






270 




SHE 


i ii Zcjliii. Lijtnc [ a3 | ur.nijjglieh.isi. 


330 BEEP 0.085,48: LET pp-pp- 1 : 
GO TO 270 


rierten Bl 


t geieicnns. und BSfSWw 


340 
LASH 


PRINT AT 11,101 BRIGHT ll F 
1 1 ■ GESCHAFFT ! " 






Time-Race 


359 
■ t 


FOR z=l TO 5 
FOR b=3 TO 20 


IB 


REM KX******************** 




BEEP . 82, D 




X X 


■ 


NEXT b 




X TIME - RACE M 


396 


NEXT I 






40B 


PAUSE 100 






485 


IF r=13 THEN GO TO 1500 




X X 


418 


00 TO 490 




* RaW Weber X 


42 8 


PRINT AT 11,10; BRIGHT 11 F 




X 1986 X 


LASH 


li-ZU LANGSAM !" 




X K 


436 


FOR 1=1 TO 5 




XXXJtXXXXXXXXXJiKXXJlXXXX 


446 


FOR b=3 TO -15 STEP -1 


13 


BRIGHT 1: PAPER 4; BORDER 4 


450 


8EEP . 83, b 


I CLS i LET re=0 


469 


NEXT b 


2B 


GO SUB 70S 


479 


NEXT z 


30 


LET p=6: LET t-P99i LET tr= 


.Ji-i 


GO TO 690 


1000 


LET r-li LET pu=0 


498 


CLS 




LET pp-8i LET xl=20i LET yl 


568 


PRINT AT 4,6i"Rund» MM" h 


=30: 


LET x2-20: LET y2-30 




Sie "iAT 5, 10i"oesch*fff|A 


SO 


GO TO 770 


T 7,5i"G RATULIERE" 


80 


PAUSE 


51B 


PRINT AT 15,3|"Jetzt wird • 


M 


PAUSE 


s abor noth'IAT 17, ?1 • tchwier lg* 


10B 


IF INKEY«=-p- THEN LET yl= 






yl+1 




S20 


If ►» 3 OR r=6 OR r-9 OR r-=l 


11B 


IF INKEY»="o" THEN LET yl- 


2 THEN PRINT AT Z0,7| BRIGHT 11 


yl-1 




FLASH 1 I "NEUES LABYRINTH' 


12B 


IF INKEYS="s," THEN LETT x 1- 


530 


LET pu=t+INT <t*r/5> 






34 8 


LET p-p+pu 


130 


IF INKEY«="q" THEN LET X 1= 


558 


LET tP=tr-50 






56 8 


LET t=tr 


140 


GO TO 243 


":~e 


LET r=r+l 


180 


IF IN 31>=16 THEN GO TO 2B 


: 


PRINT AT 18,51"Bie tiab»n in 







die 


serMAT 12,21'Runde MpU!" P 
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598 PAUSE 200 

609 BEEP 2,18 

618 IF r=4 OR r=7 OR r=18 OR t" 
13 THEN GO TO 648 

620 RESTORE 28B8+18B*r 

638 GO TO 40 

648 LET tr=188B-INT <3*r/18)*il 

638 LET t=tr 

668 GO TO 48 

678 LET p=38B« 

6G8 PAUSE 188: CLS 

698 IF p-B THEN PRINT AT 3,3!' 



id sal Iter 

IRIGHT I! FLASH I 

IF p>8 THEN 



etwa? 



i Time- Race geht 



ird, arbeltet 

liese abQelau 

alle Punkt 



haben, 1st i 



958 PRINT 

968 PRINT "Hit 

tten Rurde kcmm 
978 PRIM 






21,6; FLASH 11 BR I 



PRINT AT 9, 



9BB PAUSE B 
998 CLS 
18BB PRINT ■ 



iINT AT 12,2 



•STEUERUNG: 



1838 PRINT ■ 



1 THEN 
1 THEN 



778 FOR 
768 READ 
798 FOR 
BBS IF 



828 ] 



1 TO ZI 

* 
y=B TO 31 



■ 1- THEN PRINT 



*1) = "B" THEN LET 1 



=pp+l 

830 NEXT y 

848 NEXT x 

B38 PRINT AT 8,81'ZEIT: PUN 

KTEl RUNDE: ■ 

B68 PRINT AT 8,6lttAT B.lBjplAT 

B78 PRINT AT il.yl) BRIGHT if* 

888 IF »t"I THEN GO TO SB 
698 IF st=2 THEN GO TO IBB 
988 PRINT 'TIME - RACE" 



149 PRINT 
1838 PRINT 
1868 PRINT 

PRINT TAB 7 



TTE WAEHLENl" 



) PRINT TAB 7 
GHT 1 J " . 



INVERSE 



. 128 GO TO 
.139 LET it 
.148 PRINT 
1138 PRINT 
116B PRINT 
117B PRINT 



NUERSE 8; BRIGHT 81" 
THEN GO TO I 
THEN GO TO 1 

iaa 



T A ST AT U R - ST E UE RUNG I 



1130 F 



INT 



?39 PRINT 'SPIELERKLAERUNGl 



1229 PRINT 
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1236 PRINT TAB 7i INVERSE ll BRI 


8180888888888886881 


8668861" ,"18: 


GHT I|"0" I INVERSE 9i BRIGHT 01" 


eiiiiiieieniiiieie 


1111118131",- 




1818888868818186881 


6188888888181 


1248 PRINT 


',' 1818111111816081 


1888181111118 


1238 PRINT TAB 7! INVERSE 1; BRI 


101",' 1080000108918 


1889010190910 


GHT li'A-; INVERSE Bl BRIGHT Bi" 


J80B01' 






2318 DATA "16111161 


0101019110161 




81818111181' ,-18188 


8818198010000 




ieaei8iB8B8iei',' is 


1011110101011 


beliebigen Taste koennen Sis so 




° 101000010091 


wohl das Spiel, wie such jede 


8886600010001000018 


1- ,' 101111010 


reue Runde beglnnen." 


111 111001 111 1181911 


1101' ,"100080 


1298 PRINT 


0909100B00000001009 


0000001',"iei 


1298 PRINT ■ V I E L 


1111110101111111101 


8111111181"," 


G L U E C K" 


1886000010100000009 


0810100603031 


1388 PAUSE 8 


' ,-1111101810101811 


UBiaiBiaiaii 


1318 RETURN 


111' ,-1000001000100 


aeaeaaeeiBeei 


1328 LETT st-2: CLS 


080001' , "1111111111 




1338 PRINT -TIME - RACE" 


111111111' 

2608 DATA "11111111 
11111111111' ,' 18880 




1358 PRINT 


aeeeaeseeaeee 


1360 PRINT ■JOYSTICK-STEUERUNGi 


88888688868881",- 18 


1111116168011 






- 101909090111 


137B PRINT 








0888881108688980011 


8161- ,' 109001 


nnen Sie denPunkt in jlle vier R 


8611111108691111110 




I398 U PRINT * tOJ "''""" 


9818188898881180086 
1810818161111188081 


0818180101-," 




' ,- 1610818601000891 


1009061000198 




181" ,- 1818818101111 


1811011111019 




108101- ,- 10100001900009011099800 


unde beginnen.- 






1418 PRINT 


2618 data -lemeee 




1428 PRINT 


1 1190011191- ,■ leeee 


8100090860116 


1438 PRINT " V I E L 


88888881888081'," 11 


118181811116 


L U E C K" 


88911116181911111-, 


108810001306 


1448 IF IN 3I>=16 THEN SO TO 14 


8811118888810801800 


',- 101010181 


66 


8181890600101010101 


9101", "191910 


1458 GO TO 1448 


. 161018101 1110101910 


019101' ,- 191 


1448 RETURN 


0100010008088000888 


9103010101'," 


1588 CLS i PRINT AT 1,6; BRIGHT 


1010101010111110811 


110101010191 


l; FLASH I("H ERZLICHEN' 


' ,"1010801810800888 


3080608161888 


[AT 3,4i"G L UE C KW UNSCH 


101' ,"1111111111111 


111111111111 


1513 FOR x-1 TO 3 


2988 DATA '11111111 


111111111111 


1528 BEEP .3,12: SEEP .3,161 BEE 


11U1111IU",' 18010 


3888688886888 


P .3,19! BEEP 1,24 


18898161818801"," 18 


301881 1! 1! 191 


1538 NEXT X 


MBieaieieieieiei- , 


118881681818 


1548 PRINT AT 5,li"AUe 15 Runde 


9869881818688181968 


-,-181688161 


n sind g**cha+ff 


311111108108901010] 


3161' ," 180100 


1358 PRINT AT 7,31'das waren "ip 


8860888881181111118 


610101"," 110 




8188911119118888809 


3101000001',' 


1569 GO TO 718 


1000010108000080011 


110101010101 


2388 DATA "111111111111111111111 


-,' 1111001001111101 


310000000101B 


I 1 11 11 1 111 1" ," 188888888888188888 


301" 




81 88088888888 1" ,-181811111111181 


2910 DATA ' 18088808 


3606608181611 


11181111111110181- , " 181888818888 


I111181B111',' 10101 


111811111181 


88811888088818800181- ,'101111018 


08888186888881", "16 


aaeeeiaeeaeB 


11111011611 111818111181', "108088 


18888816181618181-, 


101019101B11 



SPECTRUM* KS S „S *SPECTRUM 




INDIVIDUAL 
SOFTWARE 



ei 1 1 1 1 1 leiaiseeieiei" , ■■ laeeeeaei 


iBiaieiBiBiaieieieieiBieeBiBBiBi 


eeeeeeeaeeeeieieiaiBiei',- nam 


",' 1B111111 


01913181916101911110 


liiiiuieaeeiiiiBieeeeaiei' , "ibb 


1 S 1 ™ ," 10390908061006109016038686 


eBeeeeeeeeiBiiaeBBBeieiuiiBi 1 , " 


08B101"," 11 


11111111111111111111 


i ! s i i it i miaiaiiaiii 10101060101 


111111111" 




■ , ■ lBeBeBeeBaaaeiBeeeeiaBBaBieie 


35 9 B DATA " 


11111111111111111111 


eei" , n sain j s u in i ii i Jieien ifli 


11111111111 


,' 18801898011 1908119 


9 101 1 ] " , ' 18838888611888988881880 


86111800818 


Bl",' 106618818918016 


BBiaieeai" ," i in in liiiiiuniii 


89B1001BB1B 


10861- ,■' 198606188880 


liiiiiniiii' 


11100111899 


81890301" ,■' 11 181168! 


3239 DATA " 11 11 11 1111 111 11111111 


11111111111 


108991 1911!" ,' 106888 


in in mi i , , , iB8BaBB8aieeaaBeae 


aeiaaasBiat 


98868188886631" ,'IBI 


aiBiesBeeeesBi"," iBiiiiiieiaieu 




8061018010118116!- ," 


1B1BI818! 1 1 111 19! " ," 168988819191 


1B1BB819101 


6881 1068810181030101 


08180 181819160898101" ,"181910816 


■ ," 1810101B 


86018869801986181618 


iBiBaeeeieiBieieiiieief.MaiBet 


181","iBieB 


1611 1881611618811181 


91906 161919189810101910191" ,"191 


eaeisi'.'ifl 


01810186018963861060 


08161813810831881110138818181"," 


lBieiBlBl" 




!8!0!90il89189!90I80ei01l 11 18181 


3510 DATA " 


019081016166881 18086 


' ,'16101881 981881019010818608880 


16181BBB191 


,' 101101191601018080 


iBi*,"iBiBaaBiBieBieBaiBei3iiiii 


18180131181 


01" ,' 100680801080091 


111181" 


00iee9e9i8808089i-,"iii8i0i0eeii 


3210 DATA '101011010190081888819 


liiiiiiiiu 


0181611 1" ," 109818961 


eeBaeBaBBBi" ,■ jeieeeeieeisaiBisa 


63008909868 


68198010881" ,"181118 


leBiiiiiiiBiBi-.-iaiBBieieieiaea 


BIBeilBllll 


181 10018011161" ,' IBB 


80131690698800181"," 101019010183 


81816803889 


69688809001018661" ," 


10BS189161 161 1 1 19191" ," 1910B061B 




11168111101163618111 


i00eieieaeiaBiaBaeeBaei",*iBiBii 


" , ■ 10393316986088008908008881609 


eiBlBlllBlllBlllllBBtBBlBl-.-lBl 


SB 1*," 11111 


11111111111111111111 


080090808!098!90880188!B01iai" ," 


111111" 
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Taspress 



vr-.-iu^i^n Ikr .lliT.liil^ k 



Taspress 



1 INPUT ■STARTADRESSE ? ■ IA 

2 FOR B-IT0 7 

3 RESTORE CB+28) 

4 LET C-8 

5 FOR D=l TO IB 

6 READ E 

7 LET C=C*E 
POKE A,E 
9 LET A=A+1 

18 NEXT D 

11 READ F 

12 IF COF THEN PRINT FLASH 
ll'FEHLER IN DATAZEILE "5B+2B'"G 
ELESENE PRUEFSLMME: "IF'"ERRECHN 
ETER WERT: ' ;C: BEEP .1,9: STOP 



1,1*2,5,243,231,2 

,177,61,32,2 

t, 225, 221, 223, 24 



• ,221,35,1 



,120,1 



13 PRINT AT B,BJ"DATAZEILE ■ 
■2Bi" O.K.': BEEP . 1,18 

14 NEXT B 

15 GO TO 9999 

21 DATA 223,231, 
85, 138, 28,295, 1565 

22 DATA 153,38,1 
43,289,29,193,1383 

23 DATA 1 
3,245,221,126,8, I 

24 DATA 11? 
'7,48,21,241, 1B2B 

25 DATA 61,32,239,241,243,197, 
6,8,79,123, 1223 

26 DATA 145,79,221,9,221,35,19 
3,241,24,221,1389 

27 DATA 241,241,229,193,281,8, 
8,8,8,8, 1185 

8999 REM TASPRESSDEMO! 

9898 LET A*=- 1234567B98 

LET A*^a,*tA*: REM TEXT 1ST 1 
8 ZEICHEN BREIT * 18*SPACE ! 
9819 FOR A=l TO LEN A*: POKE 232 
95*A,C0DE A«(A>: NEXT A: REM IN 
DRUCKERPUFFER POKEN! 
9828 LET A=PEEK 2372B+256SPEEK 2 
3729: REM STARTADRESSE MIEDER RE 
STAURIEREN! 

9839 LET Z=USR A: PRINT 23296,23 
296,29,18,28 

9848 FOR A=23296 TO Z- 1 STEP 18! 
* B=A TO A+9! PRINT CUR* PEEK 
: NEXT Bl PRINT : NEXT A 
9858 PRINT "NEUE TEXTLAENQE CA. 
:Z-23296i" BYTES- 
. 9968 STOP 
9999 LET A=A-79: LET AH=INT (A/2 
565: LET AL=A-256*AH: POKE 2372B 
,ALl POKE 23729, AH: CLEAR : LET 
A=PEEK 23728+ 256* PEEK 23729: PRI 
NT AT 1B,7;'SALJE f: BAUE "TASPR 
ESS" LINE 1: SAVE "TASPRESS CO* CO 
DE A, 78: PRINT AT 18,8; FLASH II 

": VERIFY -TASPRESS": VERIFY ■ 
TAS PRE SSCQ" CODE A,7Bi RUN 9889 



Computer Kontakt 2-3/B7 

AND-, OR-, 
XOR-Simulation 

[icrulicZSO- Keltic AND, OR mbcqucm ahgefragt wci 
mit ihr auch 2-Byle-Inlegois 



c. unil J -?lh7 SHrhlit-J3- werden mUssen. Fli 



MC-Generator 



1 INPUT ■ STARTAD RES SE DES MCO 
DES f • rMCODE 

2 LET A=MCODE 

3 FOR B=l TO 6 

4 RESTORE (B+19) 
3 LET C=0 

6 FOR D=l TO IB 

7 READ E 

8 LET C=C+E 

9 POKE A,E 
19 LET A=A+1 

11 NEXT D 

12 READ F 

13 IF FOC THEN FLASH l! PRIN 
T '"FEHLER IN DATAZE1LE ■ IBtl9' 
••GELESENE PRUEFSUMMEi ";F"ERRE 
CHNETE PRUEFSUMMEi -;Ci FLASH B: 

BEEP .1,-35! STOP 

14 PRINT -DATAZEILE ";B+19!" I 



ALLE DATAS SIND O.K. 

17 PRINT BRIGHT 1 [ ■ 
9990 KANN DAS PRO- 
DEB ER2EUGTE CODE AB- ■ 
IB PRINT BRIGHT II* 
EICHERT WERDEN. 

19 PRINT BRIGHT 1|- 
NTINUE ERFDLGT E1N 
KU HZ DEMO. 



32,343, 193,121, 



■3,223,231,62,3,245,2 






22 DATA 193,289 
1,40, 14,254 

23 DATA 2 
142,71,121, !09 

24 DATA 163, 
21, 171,24,5 

25 DATA l: 
251, 281, a, e 



> REM 

9B18 INPUT 

9828 INPUT 



173,; 



,1 



1,121, 179,79, 
AND/OR/XOR DEMO 

1. IJERKNUEPFLN08WERT 

2. UERKNUEPFUNGSWERT 
FUNKT1DN <8/1^2) ? " 
1SR MCODE: PRINT A,B, 



999B LET A2=1NT (MC0DE/-25£> ! LET 
A1=MC0DE-23«*A2 

9991 POKE 2372B.AH POKE 23729, A 
2 

9992 CLEAR 

9993 SAVE "AND/OR/XOR" LINE 1; S 
AL>E "ANOORXORCO-COOE (PEEK 23728 
*254*PEEK 237291,48 

9994 PRINT FLASH HAT IB.BC 

WERIFY ! 
P995 VERIFY ■AND/OR^XOR' j VERIFY 
"ANDORXORCO-CODE (PEEK 2372S»2S 
6*PEEK 23729) ,£B 
9996 RUN 



INPUT AT 

beim Spectrum 



Computer Kontakt 2-3/87 



■iri^.l-.L- ill, nli M.r.Li'.^l.v 









: RANDOMIZE. 






■.•r.i.-.'.irl.Lli "-■:'. 

-R TjrLL.lkLTpLlil'L'T 



Im ESsieich dcs Dmckcrptif- 
rs (23296-23551) imd del 5 y - 
Mnvaiiablso (23552-23756)! 



r..,!,^, ,v.,^,,^ ,,.]}. ffirtz™. 




MC -Generator 




1 INPUT " STARTAORESSE 


DES MCO 


DES ? "IMCODE 




2 LET A=MCODE 




3 FOR B=l TO 21 




1 RESTORE (B+19) 




3 LET C=9 




6 FOR 0=1 TO 18 




7 READ E 




B LET C=C+E 




9 POKE A,E 




18 LET A=A*1 




11 NEXT D 




12 READ F 




13 IF FOC THEN FLASH 


1 i PRIN 


T "-FEHLER IN DATAZEILE 


■ ;B+19' 


"GELESENE PRUEFSUMMEl " 


F'-ERRE 


CHNETE PRUEFSUfMEi " iCi 


'LASH 8 i 


BEEP .1,-35: STOP 




14 PRINT 'DATAZEILE "i 


3+19i" I 


ST O.K.' 




15 NEXT B 




16 CLS 1 PRINT BRIGHT 


IS* 


ALLE DATAS SIND O.K. 




17 PRINT BRIGHT 1!" M 


T GOTO 


9?98 KANN DAS PRO- G 


^AMM UND 


DER ERZEUOTE CODE AB-" 




IS PRINT BRIGHT IS* 


EESP 


EI CHERT 11ERDEN. 




1? PRINT BRIGHT ll" 


BE I CO 


NTINUE ERFOLGT E1N 




KURZDEMO. *: 


STOP 


28 DATA 223,231,62,3,245,231,2 


83, 139,28,205, 1563 




21 DATA 153,39,241,19? 


,61,32,2 


43,289,83,193, 1442 




22 DATA 225,69,237,67, 


176,92,1 


22, SB, 173,92, 1305 





SINCLAIR a 



23 DATA 42,2,203, 1,22,237,75, 1 


9B0B INPUT "X-POS. DER EINGABE ? 


76,92, 197,106? 




24 DATA 197,62,22,213,193,126, 


901B INPUT "Y-POS. DER EINGABE ? 


215,193, 121,215, 1553 


" fC 


23 DATA 56,175,92,71,197,33,0, 


9B2B INPUT "LAENGE DER EINGABE ? 




" ;d 


26 DATA 137,215,62,8,213,225,1 


9830 PRINT ttBiAT 1,BS" INPUT AT 


93,24,2,24, 11B5 




27 DATA 220,175,50,8,92,118,38 


.<• 


,8,92,167,988 


9040 LET 7=USR MCODE: PRINT E,C, 


2B DATA 4B, 249, 229, 213, 33, 0,0, 




229,209,197,1399 


9030 CLS : PRINT "IHRE EINGABE W 


29 DATA 245,221,229,253,229,20 


ARi -i FDR A-23296 TO 23296+D! P 


5, 181,3,253,225,2044 


RINT FLASH liCHR* PEEK Al: NEXT 


38 DATA 221,225,241,193,289,22 


A: SEEP .1,0 


3,234,6,48,45,1659 


9B6S PRINT »0;AT l.Oi'BlTTE DRUE 


31 DATA 234,8,49,51,254,13,40, 


CKEN SIE E1NE TASTE !!"! PAUSE 


77,254,12,1003 


9990 LET A2=INT <MC0DE/236>: LET 


32 DATA 32,4,62,8,24,39,254,31 


A1=MC0DE-256*A2 


,36,197,707 


999! POKE 2372B,A1J POKE 23729, A 


33 DATA 234,128,48,193,119,245 


2 


, 197,229,215,62, 169B 


9992 CLEAR 


34 DATA 137,215,62,8,215,225,1 


9993 SAUE "INPUT EXT." LINE ll S 


93,241,35, 16,1347 


AUE "INPUT CODE'CDDE <PEEK 23728 


35 DATA 176,62,32,215,201,53,1 


♦256SPEEK 23729), 210 


06,92,238,8, 1188 


9994 PRINT FLASH HAT 18, Bi" 






36 DATA 50,106,92,24,162,43,12 


9995 VERIFY "INPUT EXT."! VERIFY 


5,254,235,48,1151 


"INPUT CODE"CODE (PEEK 23728+23 


37 DATA 154,62,8,245,197,229,2 


6*PEEK 23729) ,218 


15,62,137,213,1524 


9996 RUN 


38 DATA 62, 32, 215, 62, 8, 213, 62, 




5,213,225, 1104 


S 1984 BY G-S-S-T S 


39 DATA 193,241,4,24,132,54,32 


\ 1986 BY DIRK 2WEERSH 


,35,16,251,982 


", DAUNERSTR. 15S 




V 5000 KOELN 411, 


,229 


\ 0221/443749 ^ 


8999 REM INPUT EXT. DEMO 


WWWJWWWMWWA 



Stainless Steel 




so SINCLAIR 



ZX-81-Biorhythmus 



n Tag, naliirlicli abh?ni! ; ' Iwns .Krmi 



Biorhythmus 



2 REM * ZX81S BIORHYTHMUS 

4 REM * MICHAEL SCHRAMM 

3 REM * COMPUTER KONTAKT 
6 REM KHKM i mm i lllllt It M <-W^ ~ " 



£V f«lPil ,,-rcrcvn"- 

KTUELLEN- , "BIORHYTHMUS-UERTE. ' 
55 PRINT 'DIESE REICHEN VON -1 
IUNGUEN--, , STIGSTER WERT> BIS * 
1 I BESTE " , "VERFASSUNG ) . ■ 

40 PRINT "GEBEN SIE JEDES DATU 
M IN DEW, 'FORM TTMMJJJJ ftN, ALS 



I.b.'.'Iw 

30 frint 'das prograhm arbeite 
t fuer datendes gregorian i schen 
kalenders, also fuer daten ab 1 

5.10.1582 . ' 
60 PRINT , 
INE." 



! DEN 19.5. 



■DRUECKEN SIE NEW L 



70 DIM B4I3S4) 

75 LET Z*='ER ZYKLUS" 

76 DIM A»I3,19) 

77 LET A*(1)--PHYSISCH'+Z* 

78 LET A*(2>="EMOTIONAL-*Z* 

79 LET A*(3>="PSYCHISCH'fZ* 
60 LET M*-" 303232332323" 

90 IF INKEY*=" THEN GOTO 90 

110 PRINT -AKTUELLES DATUM: ■ 

120 LET F=0 

130 GOSUB £40 

140 LET S-T 

150 LET CM 

160 LET H=J 

170 LET R-X 



( SBR SBR FI T 



(100*SIO 



180 PRINT AT 2,0i-GEBURTSDATUM: 
■iB* 

190 LET F-2 

200 GO SUB 640 

210 LET X=R-X 

220 IF X>=0 THEN GOTO 270 

230 PRINT "DIE BIORHYTHMUS-THEO 
RIE-.-ERSTRECKT SICH NUR AUF DIE 
-.■ZEIT NACH DER 6EBURT. ■ 

260 IF S8R SBR f~" " 
HEN GOTO 100 „„ 

270 PRINT 'IHR LEBENSALTER BETR 
AEGT'.X;" TAGE.",, ,, 

280 FOR Y-l TO 3 

290 LET P-VAL "IN - 
(18*5*Y)*2*PII + .3). 

300 FRINT A*(Y)I*I 

310 NEXT 1 

320 PRINT 

[RLAUF IHRtu-, -oiuini in.~- ™j- 
I FUER DIE" , -NAECHSTEN 28 TAGE 
EHEN? IJ/N1" 

~1 LET D*=INKEY* 

5 IF D«="" THEN GOTO 330 

_ .3 IF D»='J' OR D*""N- THEN GO 

350 PRINT AT 13,01 "NUR J ODER N 
EINGEBEN.-IAT 15,0iBSI TO 321 " 
ND S8R SBR SBR SBR SBR PI 
390 GOTO 330 

400 IF D*='N* THEN 6OT0 190 
410 PRINT AT 3,0;B* 
420 FOR Y-l TO 3 
430 PRINT AT 4,7iA«(Y) 
435 PRINT AT 8,1I"*"SAT 20, 1 i 

440 FOR 8=0 TO 1 STEP .2 

450 PRINT AT 14-3*3,058! AT 14+3 
40,015 

460 NEXT Q 

470 LET F=18+5*Y 

480 LET G=S 

490 PRINT AT 6,01 F; --TAGE-PERIO 
DE' 

500 LET H=X 

510 FOR P=4 TO 31 

520 PRINT AT 14,PtCHR* 9(AT 15, 
P(INT (G/10)|AT I6,P;G-10»INT (G 
/10) 

530 LET G=G+1 

540 IF G>E THEN LET G-l 

330 PLOT 2*P,INT (SIN UH-.23I/ 
F*2*PI)*10)*14 

360 PLOT 2W+1.INT (SIN KH+.25 
)/F*2*PI>»10>+14 

370 LET H=H+1 

580 NEXT P 

390 PRINT AT 21 , 6i "MEITER NACH 



NEW L 



640 INPUT X 

650 IF X<1E9 AND X>0 AND X=INT 
X THEN GOTO 710 

660 PRINT AT 5,0i"KEINE ZULAESS 
IGE EINGABE, DATEN NUR VON DER F 



ORM TTMMJJJJ","AELTESTES DATUM: 


EAT F+1,181 


15.10.1582 .'IAT 3,0;B*( TO 96) 


870 


LET X*VAL ■J*365+INT KJ-IJ 


AND SSR SSR SSR SSR SSR PI 


/4)INT f IJ-11/100HINT (1J-D/4 


700 GOTO 640 


00)*TtP*(M>2> ■ 


710 LET T=IHT (X/1E6) 






720 LET M=INT IX/1E41 -100*T 


890 


LET X=X+VAL M*(P>»28 


730 LET J=X-M*1E4-T#1E6 


900 


NEXT P 


740 IF T*100*H+1E4*J<13821013 T 


910 


LET P»X-7#INT (X/7) 


HEN GOTO 660 


920 


GOTO 930t20#P 


750 IF T AND M AND M<13 THEN GO 


930 


PRINT "SAWSTAG" 


TO 810 


940 


RETURN 


760 PRINT AT 5, 2) 'DIESES DATUM 


950 


PRINT "SONNTAG" 


GIBT ES NICHT.'IAT 3,0;B*< TO 32 


960 


RETURN 


I AND SSR SSR SRR SSR SQR PI 


970 


PRINT -NONTAG" 


800 OOTO 640 


9 30 


RETURN 


810 LET D-2B+VAL M*(M> 


990 


PRINT -DIENSTAG" 


820 LET P=l 






830 IF VAL ■J/40INT (J/4) OR J 


1010 


PRINT "MITTWOCH" 


/100=INT (J/100) AND J/400OINT 


1020 


RETURN 


<J/400>" THEN LET P=0 


1030 


PRINT "DONNERSTAB- 


840 IF P AND M=2 THEN LET D-29 


1040 


RETURN 


830 IF T>D THEN GOTO 760 


1050 


PRINT -FREITAG- 


860 PRINT AT F, 1B1TI '. ■ I HI ". " i J 


1060 


RETURN 



Delete 






ruler Start crfoial nii R! N Li ^- ■>]>"'< ^M-"' 



MC-Generator 

10ERZEIL 



DCUECKEM- 


^^^■^i^y vMWJWA 


aa ir inK.svtt-0" then goto oob 




m REM tEiLOADEFt 

13 LET «OR = 16Si4. 




so frst 

30 let ««=-aes oss ets ®*a e>ia 

■ ■■ ■•"■ ■■' ■ 




NrCiDR TO flDR+SS 




78 LET R*ifll£5 TO J 


i 


ee if sunoasa? then print -ze 

E 12B NOCnMfii. KONTROLIEREN" 


5", "EINGEBEN : "; 



32 SINCLAIR 



Computer Kontakt 2-3i 



JKC l63§4.Uj 

, "EINSEBCN : 



Sg3 jU 



•'■v£ ■■JEtEr!" 



Ji'jkk'^-Pmtira.Tnic j 



Die Situation des QL JSSCEffiSC 
in Deutschland 




Computer Kontakt 2-3/ 



SINCLAIR 33 



Fehlersteuerung in Superbasic 




34 SINCLAIR 



Computer Kg ■■: 



= 
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Drei Programme fur JJ J^™* 
den QL ZZ 




Copy-all 



1 REMarl 
tf*Stt 

2 REMarl 
## 

3 REMarl 



tttt#*ttHttHHHHHtt8tttttttttttttttt« 
tt* COPY -ALL 

tt* <c> by JUPITERPROG 
H«Htttt4IHMtttt#«W ttHtH4*Wtt*H«tl 



I REMa 

MHHI 

5 INK 7,5,2:PAPER 9,1,1 

4 MODE 8:FLASH 1. CSIZE 3,1:AT 8, 

(iPRINT ■ C a p y - a 1 1 ":FLAS 

7 CSIZE 2,8:AT tO.BlINPUT "Up is 



■ ■:■. ■ 



N<m 



» OPEN_NEW (t3,*mdv"^sd^-_dir«cto 
py'+lB DIR «3, , mdv'ljn*-_- + ll CL 
OSE S3 

12 PRINT bo'Nun uird kopiert..." 

13 OPEN_IN #3,"mclv-»iS(i& ,, _direclo 
ry'4-14 INPUT S3,nam*,s*c«+15 IN 
PUT *3,x* 



Cartcommand 

1 REMar 

tnttwit 

2 REMar 



' by JUPITERPROG 



1.2ICSIZE 2, 



6 CSIZE 3, Is AT 8,2: 
-CARTcomm 

7 INK 7,6,1:PAP£R E 

8 AT 7,8:PRINT -W h 



r.'ao-F2 —J Directory ♦ Run-co-F 
3 --> L»schen-Hci-F4 --> Endo*+° 
BEEP 18808,188,18,188,18,1,1,1 



36 SINCLAIR 



18 REPeat loop 

t 1 a=CODE< INKEY*< - 1> ) 

12 IF a=232 THEN GD TO IS 

13 IF a=236 THEM GO TO 21 

14 IF a=248 THEN GO TO 43 

15 IF a=244 THEN BO TO 43 

16 IF a-243 THEN GD TO 46 
1-7 END REPeat loop 

IS DELETE mdvl_Cart_holp:OPEN_NE 
W *255,mdul_Cart_lielp 

19 D1R *Z33,mdvl_ 

20 CLOSE B235:RUN 

21 OPEN_IN *235,moVl_Car-t_rielp 

22 DIM a*C 189,28) i i=e 

23 CLS 

24 CLS »2 

25 INPUT 4233, nam*, sec* 

26 INK 7:PAPER 2,8,8 

27 AT 8,8:PRINT 'Name: ■ I namS! 
c* 

28 REPeat loop 

29 IF E0F<lt255> THEN EXIT lo 

30 i=l+l! INPUT 0255,3*111 

31 IF i^8=INT< i/-S) THEN BEEP 
1,16:PRINT *8,->ENTERC drPcken . 
..■:IF INKEY*<-l>OCHR4<18) THEN 

GO TO 31: ELSE CLS 

32 IF **Ci>-*boot" OR a*( i>= 
rt_help" THEN NEXT loop+33 PRII 

HTO 35 ii". - -!a*< 1) 
34 END REPeat loop 

33 CLOSE t(Z33 

36 BEEP 5555,22,77,588,5,2,3,4 

37 CLS Hfl:INPUT tt8,"[hre t 
z:IF z<l OR Di THEN BO TO 36 

38 x*=a*<z,LEN<a*Cz)>-2 TO LEN<a 



39 IF ) 



="Ba5" OR > 



THEN LRUN "mdvl_"fca*<z 
48 IF x«="_mc" OR x*="_MC" THEN 
EXEC "moVL_"fca*Cz) !RUN 

41 INPUT Be, "Si 
BYTES "mdvl_"&; 

42 STOP 

43 INPUT #8,-N; 

44 DELETE 'rndvl 

45 STOP 

46 GO TO IB 

Reversi 

1 REftark «tt HMM*HltH«#ttttNttttMHHtttttt*t 
3 REMmrk tttt REVERSI 



i BY JUPITERPRDG'B 



7 REMark *H«*ftHiMt»lMHMttttttttM*illMtHtt 



S REMark 
9 RENark 
IB RENark ) 

11 MODE B 

12 CLS KB ;)< 



.dschirmaufbau XX 
i H, 488, 30, 56, 22 



13 BORDER ttB,5,2,l,B:0PEN tt3,scr 
_388>:2B8a?Bxie;B0RDER H3, 12,5,7, 
t: BORDER H3,6, 3,4 ,2:PAPER *3,2:C 
LS S3 

14 AT 1,11:LNDER liFRINT "REV 
E R S I" SUNDER 8+15 AT 7,3B:PRIN 
T -Manach'iAT 1B,3BiPRINT -Rschn 
ef + 16 INK BiPAPER 6,5,3iAT 0,32 
iPRINT " O ":AT ll,32iPRINT " X 
■:INK 7:PAPEft 84-17 DIM -FOB, 18>+ 

15 RANDOMISE 

19 INK 5:F0R i=l TO BlAT 3,0+ i*2 

: PRINT i 

2B FOR 1=1 TO B:AT i*2+3,3:PRINT 

21 INK 6 

22 FOR i-8 TO 08 STEP 18:LINE 38 
, i TO 128, i 

23 FOR 1=48 Tt 
i,9B TO 1,8 

24 CSIZE 8,8 

25 xcRND<l TO 2>:f<4,4) = l:f<5,5) 
=-l:-f<4,5) = l--B2"(x):f(3,4)=-l*- 
B2-(x>4-26 xl=e:yl=8:c=e;max=8+27 



28 STEP 9.5iLINE 



28 s*=- 3633636624734732257457422 
72272771386168343564633343564653 
86168311 1887376262381 18323762678 
41383144 1517 14S5BB2872B7 1122 178" 



38 REMark 

31 REMark J 

32 REMark 



FOR 1=1 TO 128 STEP 2 
yl=sS(i):xl=**<i+l> 
IF f<yl,xl>08 THEN GO TO 47 

FOR j— 2 TO 2 STEP 2 
FOR k=-2 TO Z STEP 2 
IF :NOT<<yl*j>=8) AND <xl+k 
I))) OR Cj=8 AND K=B> THEN GO 



:■ 





2 Bucher unentbehr- 
lich - ehrlich ! 
IX 81 DM 49,- 
Sinclair QL DM 69,- 



Das scharfste fur den 



O* r i § .Spectrum - Peep Show 

S~° § Bitte Alter angeben. 




Actiongame mit 

32 Screens. 

32 Screens. 100% 

Maschinensprache. 

DM 19,- 




Eine Reise 

von New York 

nach Agypten. 

Deutsches Grafik- 

Adventure fur 

DM 16,- 



Spezialilaten-Beslellscheii 
















































































38 SINCLAIR 



45 IF t<max THEN GO TO 47 

47 END FOR i 

48 IF *(itiv,ibI-6 THEN GO TO 52 
4? FOR my=l TO B 

5B FDR mx=l TO 8:IF f <my ,mx)=B 
THEN 60 TO 52 

51 END FOR my: STOP 

52 PRINT tt8,oT1»in 2ug: ■ !my ! " ," ! 



ftzen 



> Zug KX 



33 REMark 

*J6 REMark XX Sp 

57 REMark 

98 FLASH IsAT 6,3BiPRINT "Mensch 

■ [FLASH 8:AT 9,38:PRINT 'Rechner 

•-4-5? 8EEP 49B9, 18,44,7.4,2,-7,3:1 

NPLTT »B,-Dein Zug(x ,y) : ■ ! yy ! • ," ! 

SB IF yy>S OR yy< 1 OR xx>8 OR x> 
<1 THEN GO TO 59:ELSE IF -ftyy.x 
ilOl THEN GO TO 59 



i+l: IF qw=38 THEN GO TO 6 

I 33 

k HH Fertlg;Z Men 



71 END FOR j 

72 END FOR i 

73 IF ms>32 THEN BO TO 75:ELSE I 
F ms-32 THEN GO TO BisELSE GO TO 



76 REMark 

77 BEEP 9,28,158,335,3 

7B CLSlCSIZE 3, HAT fl,8:PRINT "G 
RATULATION Mt'OB'Du hast gewonn 
en >. "+79 CSIZE t.tlAT 1B,8!PRINT 
"Deine Punktei" !msba"Meine punk 
te:-!6d-ms+88 AT 19, 1 > PRINT "Hi» 



F !NKEYt=-j 
IF INKEY*0 
B2 PRINT o-l 



THEN BEEPiRltJ:EL5E 
■ THEN GO TO 81 
Igllng ! ! Feigl ing 
lark 484 REMar 



87 BEEP 8, 18,28,188,1, 9, 6 

88 CSIZE 3,8:AT 8,8:PRINT 'Unent 
■•+89 AT 2,B:PRINT "Wi 



11 



[dung 



j/n> ?"*98 IF INKEY*=- 
J- THEN BEEP:RUN:ELSE IF INKEYC< 
J"tl" THEN GO TD 9B 

91 BEEP: STOP 

92 REMark 

93 REMark XX Varloren XX 

94 REMark 
93 CL8tc=B 

?& CSIZE 3.HBEEP 8,68,128,5,28 

98 AT 8,2 

99 FOR 1=1 TO LEN(a*> 

188 INK c;FAPER 7-c:PRINT a*t i) 
;:c=ctl-8*<c-7> 

191 END FOR i 

182 INK 7:PAPER 8:CSIZE B,B:AT 1 
B,8:PRINT "tleine Punkt»; • !44-m»6 
o'Deina Punk t«: ■ !mn 

183 AT 15,2:INK <S:PAPER 1:PRINT 
■Willst du eine Revanche ?<j/rO? 
■+184 GO TO 98+183 REMark +186 R 
EMark XX Proceduren 

187 RCMark 

3 DEFine PROCedure zeigen 

189 FOR i=l TO 8 
j-1 TO 8 



— l«*-"X" 
END SELoct 

CURSOR 98+1*23,15* jS28: 
PRINT p»i 

END FOR j 
19 END FOR 1 
129 END DEFine zeigen 
121 DEFine PROCedure setien(drS, 



122 LOCal i 



.i,.i,ye,*e 
0->-<di-«"-x-)M 

2 TO 2 STEP 2 

'8(1 OR j*XB(l t 

ityB,jtxa)oc at 

1 dP*,Cy9+i^2>,< 



END FOR j 
130 END FOR 1 

M> DEFine '. 



a„nput.,K,,m,n;-3<B7 COMMODORE 




COMMODORE -NEWS 

Grafikkurs fur den C 64 



'i-N-risLii hitmap-Mudi m. 


'..i: el u [leiuZuspni- 


.jDDIs:. 4. .it::, Mi UWen Sic 


Etamtti nun starter,. Jantl acli- 






z.B.Lfcii<.irri['ik«-hiimdR'-tliii'- 




























Die <ir9fikmodi det C 64 


v.c^v.t^^f^^ 


(!• POKhM-.[;--POK|-'iS.:i: 
i_XR:REML)air,-L[iili-:Ki: 


bM^r^l^ci^n 










Sh^te^tfGB^t 


. 


RFM iC-K-B locks 
20 HOKE 53272. PEEK 


Hers uheriiinerl wird ($A000- 


Register 17: 


Biitlpunklc ansrMVil.bai. j±- 

Cr:illl/..-|k- LiJM.i.liie;, /,: 
, ■ :■ ■ Kb; -i 


SpcichJr v OT Bnsic au, uber- 

nui/ie RAM-spcicher Jes C 64 


airJ. (jruiidsSiUiicli lia. 111,111 


30 POKE 53245. PEEK 




















hither Aullitsuiis (.Cii.ZilU 




SIl- kfiiHKU siih Jriw.ii iibcr- 














61 u-jfjJruiiJ Jul M-Kiiv-.e- 












Licr Vi.lM'.iidijkdt Balbcr 


rer Aura-Lii.; lliiU-JMi I'LI-.'S- 


ilur :. : .:!ijL-h:r!]iL- i-m-iilt.-ii 










|-,..,wiiJcii POR-'.I/M-Sdi.ci- 












Mi: Bii 4 .■ ; "i :!:.' (iEal'ikluiii-- 








: :ii:iL' :o:::^lc^:. Ll-iix-: .-LiiiH 


lr.L'ns-y^:Lr:i h.Ta-::^: hkiliir! 






.:-, ii'. ■,.■'■!■: 'i .III h.ihi- .Mi:.'- 
















lor-Modus cinKcliBltei. 


DieTabEllemBitlidinJi.- 


7.0.2?.-. -h:»-POI.II.I:. 


JesROMszrirucfcgiH. 




v.'Ki: ;u ZiiuiJnuiii; ik-i 






DmchBit3v.riifJcMni<Ti. ivl-i. 


Giii-'il.^-!:irn-,.- I : Al.lijinui /■.,:'■ 


REM Zdchenfarbe. *eiB 


B:isiL--Prni;r .iiiiiii. vVennSieden 



COMMODORE 
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Punkten gelttscht wur< 



blrdscliirms, dcssen Aufbau ii 



: :<--;;= iMiB.ij.diimw- - / ;l 1 ,:, : l ' .', :■ ',|,' 
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.tit :«i» ni.:(i.:!s.;n.jii.:::.;i:.i«,ii 

:»t* 0«:o nj.itl.iii :l:.;ic.:il I .'lt.ltT,t! 



1191 MI« 213, 1 77, 213, 211, Iff, 218,211, 9, 1447 
UN DATA 197,217,211,3,192,111,144,241, 1126 
1111 DATA ft, 152,24. Ill, 215. I33,212.145.1IBS 
1121 DATA 21b. 113,1, 1)3. 211, ft, I, 1,753 
1131 DATA I 

1141 DATA lit, 114. 133, 214, 114, 133, 213, lit, 1BI 
1111 DATA 133,214, lit, 133, 215, lit, 133. 218, 1221 
1161 DATA 114, 133, 217, 24, 163, 213, 111, 2K, 1141 
1171 DATA 133, 213, 163, 211, 1B1, 214, 131, 214, 1351 
1111 DATA 161,1, 177,213, 145,217,231, 213, 1325 
1191 DATA JIB, 2, 231, 21t, 231, 217, 213,2, 1291 
1211 DATA 211,118, 165,214, Iff ,211, 144,214, 1389 
1211 BATA 165,213,197,213,1*4,229,96,1,1238 
1221 DATA I 

1231 DATA 171,231,6,131,211,171,254,6,1211 
1241 DATA 113,214,165,88,131,213, 163, 89, 1IB2 
1251 BATA 111, K6, 161, I, 36, 163, 21 

1271 DATA 113. 214, 211, 112, It, 144, 237, 24, 1131 
12H IATA 165, 213, 115, 81,113, ill, 163, 214, 1238 
1291 DATA 115, 1, 131, 214, 56. 163. 213,237, 1 113 
1111 IATA 251, 6,113, 211, 163, 214, 211, I, lilt 
111! DATA 131, 214, 173, 247, 6, 197, 211, 14t, 1318 
1321 DATA 21, 241, 2, 176, 7,171,245, 6, 871 
1131 DATA Iff, 213, 144, II, 173,244,6,113,1112 
1141 DATA 213, 171, 247, 6, 133,214, 173,233, 1354 
1151 DATA 6,211 ,B1. 211, 19,56. 173,131,993 
1361 DATA 6,211,19,41,11,24,111,213,663 
1371 DATA 111,213,163,214,113,1,113,214,1147 
UN DATA 162,1,161,1,177,213,143,215,1132 
1191 DATA 211,192,41,218,247,24,165,215,1281 
1411 DATA 113, II, 133, 215, 163, 216, IB. 1,959 
I'll 8ATA 131,216,24,165,213,119.233,6,1181 
1421 DATA 113.283, 163,284.113.1, 133, 214, 1147 
1111 DATA 212,224,21,218,211,169,116,113,1335 
1111 DATA 211, 169, 139, 111,211,161,1,152, 1181 
1151 DATA 145,211, 211, 192,41,144,219, 173,1346 
1161 DATA 251,6,71,168,169,62,145,213,1177 
1471 DATA 74, 138, 194, I, 1,1,1,1,418 
14BI DATA 1 

1491 DATA III, 171, 16, 2, 241, 3, 12, 198, 7BB 
1511 DATA 146,12,91,138,169,7,111,96,821 
1311 DATA 159,111,119,159,111,122,159,141,1111 
1521 DATA 135,159,114,111,241,21,281,1,968 
1331 DATA 218,3,76.128,112,211,2.218,968 
1548 DATA 5, 76, 4, 111, 211, 3, IIS, 3,643 
1331 DATA 76,87, 144, 74, 134, 1*3, III, 1W.86B 
1361 DATA 1 71,218,6,211, 3,21B,3, 74,921 
1571 DATA 177,144,169,1,1*1,248,6,173,1158 
1381 DATA 231, 2, 211, I55.2N, 1.76, 218, lilt 
1591 DATA 1 17, Ml, 31 .218, 3, 76, 218, 138 ,1111 
1611 DATA 211, 31, 2M,3, 76, 3, 139, 211 ,842 
1611 DATA 21,118,!, 74,9, 139,211, 29 ,693 
1421 DATA 218,1,76,74,139,281,1,288,911 
1611 DATA 1,76,139,139,211,126,218,3,895 
1441 DATA 76,161, 119, 211,127, 218, 3, 76, 991 
1651 DATA 171, 116, 211, 158, 11B,3. 76. 118,111* 
1661 DATA 146,211.159,218.1,74, 141, 116, 11N 
1671 DATA 211, 253, 218, 3, 76, 2, 138,211, IIB2 



1481 DATA 156,218, 1, 76, 218, 119, 211, 157,1 111 
1691 DATA 298,3,74.31,141,211 , 231, 2IB, 1121 
1711 DATA 3,76,132,141,291,233,218,1,1118 
1711 DATA 74, 179, 119, 291, 24, 2IB.1, 76. 999 
1728 DATA 9,141 ,281, 21, 2IB, 1,74, II, 468 
1731 DATA 142, 281, 1,298,4, 32, 31, 1*2,743 
1711 DATA 74,2,138,211,17,218,27,141,814 
1759 DATA 1,132,211,219,132,212,231,64,1183 
1761 DATA 169,191,111,17,2,169,138,111,991 
1771 DATA 14,2, 149, 64, 141,191, 2, 76, 6N 
17N DATA 2,139,211,23,218,3,76,132,813 
1799 DATA 144, 211, 19. 2N, 3, 76, 219, 144, 111! 
1991 DATA 211,1,219,3,76,81,145,211,917 
1811 DATA 5,218,1,76,3,116,32,15,518 
1821 DATA 115, 171,161, I, 173, 251, 6, 133,1141 
IB31 DATA 217, 173, 231, 6, 133, 218, 13B, 145, 1261 
1811 BATA 217, I!, IB*, I3B, 32, 218,1*1, 76, HI 7 
1851 DATA 2, 139, 2*. 173, 253, 6, 195, 88, 781 
1861 DATA 111, 233, 6, 173,25*, 6, 115, I, 938 
1B7I DATA 111, 2!*, 6, 56, 173,213, J, 237, 1126 
IBN BATA 231,6,1*1,251,6, 171, 254,6, 1N4 
1891 DATA 233,l,lll,l»,6,169,B,lll,944 
1911 DATA 251,6,171,254,6,215,232,6,1132 
1911 DATA 144,81,173, 233, 4,215, 251, 6,1119 
1921 DATA l*l,73,24,173,251,4,H3,H,E3B 
1939 DATA 1*1,251,6,173,251,6,115,1,936 
19*1 DATA III, 2.52,4, 34,173, 251, J, 237, 1112 
1951 DATA 251,6,141,251,6,171,232,6,1185 
1961 DATA 213,1,1*1,252,6,211,115,111,1112 
1971 DATA 34, 54, 171, 253, 4, 233, N, 1*1, 974 
I9BIDATA 2.33,6,173,331,6,^;. 
1991 DATA 231,6,56,173,231,6,233,81,1959 
2IN DATA 141, 251,4, 171, 252, 4, 233, I, 1142 
2111 DATA 141,252,4,149,1,173,253,6,991 
2121 DATA 133,2B7,J73,23*,6,133,2IB,24,I13B 
2131 DATA 177,217, 115,128, 1*5,217,231,46, 1245 
2141 DATA 54,17], :»■ ... 
2151 DATA 213,173,234,6,237,2*7,6,133,1259 
2161 DATA 214,169,14,148,171,111,215,54,1121 
2171 DATA 143,293,233,81,131,281,165,214,1386 
218) DATA 231,1,113,211,232,224,24,114,1196 
2991 DATA 11,162,16,211,191,26,144,4,735 
2111 IATA 161, 16, 231, 215, 211, 255, 2N, 223, 1198 
1111 DATA 143,295,141,211,159,141,212,139,1342 
2171 DATA 1*2,213,159,149,1,133,46,94,978 
2131 DATA 238, 253,6,1IB, 3,118,234, 6, 1214 
2141 DATA 238,231,6.173, 151,4,211. Bl,121* 
2151 DATA 1*4,5,169,1,141,251,6,94,811 
214B BATA 214,231,4,16,9,169,79,111,972 
2171 DATA 251,6,56,171,253,6,211,1,979 
21BI DATS 141,253,6,173,234,4,133,9,1846 
2191 DATA 1*1,23*, 6, 173, 2*7, 4, 213,25*, 12B4 
2211 DATA 4, 14*, 1 1, 171,2*6, 6, 215,253, 11*6 
2211 DATA 6, 249, 5, 1*1,3, 76,3, 119, 616 
2221 DATA 74,2,138,32,181,118,76,2,4*8 
2231 DATA 118,56,173,253,4,117,233,6,1121 
224B DATA 141, 233,4, 173,254, 4, 233, 8, 1864 
■ 2251 DATA 141,254,4,54,173,231,4,237,1121 
2261 DATA 235,4,141,251,6,14,4,21,711 



2371 DATS 115,81, 1*1, 231,4, 173,217,6, 18IB 
22BI MTA 2fJ,2M,6,iM,ia,24#,3,76,946 
2211 Mid 71,139,173,244,6,293,253,6,1112 
2311 DATA Z«,3,Ht,S,74,7*,l39,76,757 
2311 DATA 1, 118,24,173,253,4, 1B?,235, 961 
2J21 Ml* 6,141,!33,6,I71,25*,6,1I5,!»4 
2331 DATS 9,111,251,4,24,171,251,4,134 
2311 MIS 119 ,233,6, 141, 251,6,211, W,II4B 
2151 [MS I*4.6,56,233.B1,141, 231,4,914 
1311 WI> 173, 25(,6,215,232, 4,1*1,14, 1134 
2371 Mil 2*1,3,76,9,139,173,233,6,999 
23BI mill 2l3,2!l,4,l« t 5,T*,?,l»,Bi3 
23(1 DATA 7i,2,13B,lM,Bl,!l3,H!,6,!31 
MM MM MI,lttt*,«tUt I .BM|M l m 
2*11 DSTA 137,139,111,253,4,74,1,139,91* 
2(21 DS1A 32, 2IB.I3B, 171,253,4, 131,213, 11*6 
3431 DAT* 171,234,4,l31,2tl,16l,l,l!2,1H2 
1441 MIA 113,213,74,2,138,231,16,56,911 
2458 MIS 173,253,6,237,231,6,131,213,1211 
2461 DATA l71,254,A,233,l,133,!»4,9t 1 lB' 
2471 DATA 32,181,139,12,113,1*4,161,81,883 
14M DATA 177,213,141,1,145,5*; : 
■■■■■■■ ...: .. ■■ ■ 
25W DATA 4,144,235,115,213,215,251,4,1215 
2511 DATA 11*,22B,36.171,2SI,c.; 
2521 DATA 141,25l,6,175,2!2,4,!li,l,ll63 
2511 DB1S 1*1,232,6,171,2*7,1,215,252,1282 
2J4I MIS 6,114,25, 171,2*1,4,213,251,1154 
2551 MIS 4,144, 17, 24, in,251, 4,115, 724 
2341 MIS Sl,14l ,251,4,173,232,4,115,1114 
217IMT«l,!41,2S!,4i7i,2,lM,32,H7 
75BI DATA 111,119,12,115,1*1,119,81,113,995 
2311 DATA 215,14', 133, 113,214, 141,1, 177,1185 
2411 DATA 215,141,81, 145 ,213,54, 145,215, 1221 
2411 DSTS 233,1,153,115,145,216,213,1,1174 
2421 DS1B 113,214, 145,214, 197,214, 141, 229,1*81 
,.- ..:■ ■;■■ .■::- ■ ■■ ■ 

2441 MIS l4l,l,132,11S,2l3,2tl,192,BI,l132 
2651 DATA 144. 24', 24, 149, Bl, 133,213,16', 1171 
2461 MIA 133,133,211, 141,1, IS: 
2471 DATA 2ll,192,8l,l44.2t?,l?B,lt.2l,1151 
2681 DATA 171,251,4,113,81,141,251,4,1113 
16?] DSTS 173,252,6,115,6,141,252,4,935 
27IB DATS 211,133,144,17,36,171,231,4,983 
2711 MIS 211,11,141.251,4,173,252,4,1142 
2721 MIS 213,1,141,232,6,74,2,138,148 
2731 DATS 12,181, 139,l72,25l,6,2tl,l«,li72 
2741 DAIS Bl, 171, 8, 177, 213,134, 143,213,1121 

. .-. ■,;■.. , .: . 

2741 DATA 76,2,138,32,181,119,141,78,914 
2771 DATA 177,213,211, 143,213, 114, 136,18,1248 
2781 DATA 5,214,231,6,174,241,149,1.1152 
2791 DSTA 172,231,4, 145,213,76,2, 118.992 
2811 DSTA 12, 181, I19,161,l,13i,;; 
281B MTA 211,231,215,211, !»,»* 
2B2B DSTS 115,211,214,231,4,114,241,241,1489 
2831 DATA 2IB, 165,215,211, 74,174, 1,94, 1156 
2841 DSTS 149,75, 141,3,211, 141,1,162,921 
2951 DATA 1,212, 221,11,1*4,251, 211, 192.1321 



2841 DATS 231,141,214,149,1,!!:. 

2871 DATS 94,231,46,56,173,2'.;.-. 

2801 DAIS HI,i,lDi2»»ITJ 

2B9I DATA 1,133,213,149,1,133,219,141,1117 

291B DATS 79,177,212,218,5,131,241,31, IIBJ 

2911 MIS 11,247, 141,244,4,141,1,177,991 

■.■2,211, 128,1*4,3,238,2*1,4,1176 
2911 DATA 2(8,192,91,141,2*2,173,2*1,4,1281 
29*1 DATS 191,219, H(,2, 133,219,21, 143,118 J 
2951 DAIS 212,115,81, 111,212, 113 
2961 DATA !,113,2l!,2H,2;2,6,11t,l99,ll52 
:.:.■■ 
29B1 DATA 171,233,6,237,231.4,133,212.1271 
..■■ ■;. ..v.-:'- 
3111 DATA 79, 177,212,218,4,114,218,219,1275 
3111 DATA 74,212,141,177,212,211,6,1:6,1221 
3121 DATA 218,2*9,76,232,141,111,219,177,1*5! 
3131 DATA 212.218,5,136,11,2*9,2*1,98,1154 
'"-: ;:-;■- 
v- :■.'; :■ ■ : 

3161 DATA 12B,14*,6, 198,711, 2*1,43, (8, 1139 
3171 DATA 43,2M, 192,81. 144,239, 165, 211,1291 
3IB1DATA2I1,1I,174,S2,161,1,I7;,212,9B9 
3191 DATA 2I8,39,211,192,B1,;«-. 
■■■ ;■,-::. .-..;■ ■ v.--:----::' 
1111 DATA )2.1I1,212,1I1,753,4,145,21!, 1141 
3121 DATA 113.1, 111,!51,4,32,179,I*1,B57 
1 3111 DSTA 32,2, 138, 111, 168,198,211,2*1, 1B92 
11*1 DATA 7,2H,l92,ei,l*l,2BS,176,28*, 1211 
1151 DSTA 2*,I43,212.1I3,9B,]J3,212,165, 1196 
1141 DSTA 2I1,1I!,I,131,213.213,252,4,11!7 
1111 DSTA 171,1,71,111.1*1,145,212,213,1189 
3181 DATA 231,4,174,1.71,111,1*1,76,841 
1191 DSTA 2, 138, 171,246,4, 141, 251,4,945 
1211 DATA 171,2*7 ,4,1*1 ,254,4,149,1,994 
3211 DATA 111, 251,4,74,2,138,231,44,919 
1221 DATA 171,251,4,133,213,171,252,1,1197 
3211 DATA 133, 214, 141.79, 177, 213, 2K,i7, 1211 
12*1 DATA 134,14,2*9,171,2*7,1,197,211,1228 
3231 DSTA 14*, II, 173, 214,4,1 97, V' 
1241 DATA 1,74,84,112,54,115,211,213,962 
1271 DATA BI,I33,2I3,165,2C.:V 
3281 DATA 2B*,74,*2,1I2,2BI,:<. 
1291 DATA 211, 1*1,253,6,145,21*, 115,1,1177 
33H DATA 141,234,4,111,231,4,2*, 163,986 
3311 DATA 2H,H3,Bl,l*l,751,i,.i 
3321 DSTA 115,1,141,232,6,198,64,96,86* 
1131 DSTA 238,44, 18*,1 13,214, 181 ,1J3,2«, 1177 
33*1 DSTA 12,179,112,177,215,113,213,211,1281 
3138 DSTS 192,81, H*,7<7, HI.'". 2»5. 2«B. 138' 
3361 DSTS 5,134,241,2,14.247,211,152,998 
3371 DSTA 72,32,2,138.119,133,212,149,842 
3381 DSTA 1,131,211,96,211,64,176,1,881 
3391 DSTA 113,32,94,211,94,174,1,34,763 
3111 DSTA 23I,6*,91,173,24B,4,2IB.37,1I33 
3411 DSTA 56,173,244,6,233,81,1*1,353,1188 
3*21 MTA 4,173,2*7,4,233,1,141,234,1141 
3411 MTA 6,169,1,141,251,6,169,1,742 
31*1 MTA 1*1. 243,4, 161,1,24, 173,251,1113 



3451 DATA 1, Ill.B), ill, 233,1,133, 213,92? 
Mil DATA 173,234,6,113,1,1(1,234,6,939 
3171 DATA 113, 284,215,232,6, HI, 22,173,1141 
3408 MA 251,1,2(5,231,6, 144. II, 111, 9Bi 
3491 DATA 114,32,2, I3B, 161,1, 132,212,781 
3311 DATA 132,213, 141,240,6, 94, 231, 16, 1131 
3511 DATA 114, 133,214, 114, 133,211,32, 179, lit; 
3321 DATA 142, 177, 213, 211, 128, 144, 4, Si, 1162 
3531 DATA 2J3, 128,72,147,14, 76,35, 1(3,171 
3341 DATA '2,161,15,143,213,231,213,218,1243 
33M DATA 2,231,214,114,32,164,142,211,1171 
3561 DATA 123,218,2,164,91,211 ,12,218,1814 
3371 (ATA 2,169,92,211,16,218,2,164,839 
3381 DATA 93, 211, 11,218, 2, 149, 123, 211, 1MB 
3391 DATA 13,218, 2, 119, 124, 211, 11, 211,437 
36H DATA 2,169,123,211,16,218,2,169,472 
3611 DATA Hi, 143, 213, 211, 112, H, 144, 177,1267 
3421 IATA 56,163,2)3,233,81,133,213,169,1238 
1631 DATA 214,233,1, 133,214, It), 131, 177,1271 
3441 DATA 213,211,32,218,7,116,241,4,1131 
3631 DATA lit, 71, 111, 143, 211, 132, 212, 161, 1171 
364T DATA 1,132,213,76,2,131,161,1,721 
36TI DATA 141,248,1,141,231,6,141,241,1171 
1681 DATA 6,141,241,6,231,66,114,114,147 
3691 DATA 24, 113, 14, 115, 232, 133, 213, 111, 1117 
1711 DATA 246,6,141,253,6,165,13,115,437 
3711 DATA 1,113,214,141,247,1,141,254,1124 
3721 DATA 1,24,113,211,113,81,141,251,975 
1731 DATA 1,165,2)4,113,1,141,252,1,174 
3741 DATA 169, 8), 141,255,6,32,13), 146, 939 
175) DATA 152, 145,2)3, 231,213,210, 2,21), 1371 
1761 DATA 214, 115, 214, 2)1, 113, HI, 241, 119, 1443 
1771 DATA >,lil, 178,133, 2)5, 133, 211, 169, 1101 
1701 DATA 152,141 ,241, 2,133, 214, 119, 214, 1241 
379) DATA 133, 216, 177, 213, 145, 213,211,218,1477 
3811 DATA 241,231,214,211,216,217,224,4,1379 
3811 DATA 144, 241, 198,214, 132, 1 45, 213,211, I486 
3878 DATA 167, 124, 145, 211, 281, 2)), 145, 2)3, 1381 
183) DATA 28), 2)8, 145, 2)3, 111, 2, 164, 1)2,1 ill 
3841 DATA 145,281,211,211,143,213,211,2)8,1441 
385) DATA 111, 96, 143, 2)1, 2H, 111, 64, 143, 1111 
3861 DATA 211,111,132,141,244,2,111,10,1181 
3171 DATA 177, 111, 161, 12,281, 111,281,31, 1118 
3801 DATA 161,22,177,136,168,21,281,111,1121 
3091 DATA 211,21,111,24,177,131,118,31,413 
391) DATA 219,116, 2)8, It, 111, 32, 177, 136, 1)18 
3911 (ATA 161,38,2)1, 131, 24), 6, 119,), 438 
3128 DATA 111,2,145,116,76,2,138,231,889 
3938 DATA 66,31,173,251,6,237,231,6,1147 
1941 DATA 133,213, 173,214,1,231,1,133, 1135 
3131 DATA 214,114,133,211,114,131,211,114,1143 
1961 DATA 114,131,217,111,215,211,111,217,1412 
1171 DATA 171,7,177,285,143,213,71, 117,1116 
3108 DATA 114,24,163,283,1)5,08,141,253,1113 
3941 DATA 6, 143, 284, 1)3,), 141, 234, 6, 801 
4H) DATA 164,1,141,231,6,76,2,131,782 
4111 DATA 161,8, 161, 11, 133,211, 151 ,2H, 1871 
4828 DATA 112,41,144,248,161,8,141,249,1183 
4)3) DATA 1,164,3,141,248,1,76,2,653 



111! DATA 118,173,231,2,211,23,241,224,1252 
1151 DATA 211,19,241,21,32,43, 143,172,875 
4868 DATA 249, 1,151, 216, 159, 211, 142, 11, 1213 
1171 DATA 141,1,131,111,249,6,71,2,751 
4101 DATA 138, 32, 111, 139, 172, 251,1, 162, UN 
419) DATA 1,142,2(8,1,177,211,221,211,1211 
I1M DATA 131,248,11,130,218,211,218,192,1189 
41 IB DATA 08,176,16,76,213,114,212,236,1175 
4121 DATA 249,6,241,17,176,32,2)1,192,1132 
4111 DATA 81, 144, 225, 111, 1,24, 145, 211, III! 
4141 DATA 113, 08,133, 213, 115, 2I(, 115,1, 995 
4151 DAT) 131,214,213,232, 1,1(4, 2)), 113, 13)9 

416) DATA 283,213,251,1,1(4,193,71,2,1)8) 

417) DATA 13B, 111, 251, 6, 2(,152, 111 

1118 DATA 141,253,1,115,711,113,1,111,1115 
4141 DATA 254,6,16,22,1(5,211,32,176,412 
4281 DATA 1,185,14,16,281,46,176,4,745 
4211 DATA 36,233,32,11,211,128,176,1,123 
4221 DATA 46,211 ,111, 171, 3, 115, 14,96,911 
1231 DATA 211,221,176,3,56,233,32,16,1821 
(211 DATA 51,171,233,6,237,751,6,141,1122 
4751 DATA 253,1,1(1,241,6,171,254,6,1(79 
4261 DATA 233,8,141,251,1,111,241,6,1122 
4271 DATA 119,8,1(1,251,1,119,35,141,911 
4281 DATA 171,139,161,41,111,178,159,169,1281 
424) DATA II, 111, 179, 159, 12, 2, 118, 112, B4I 
41N DATA 235,171,252,2,281,255,211,2(7,1123 
4311 DATA 1(2,232,2,211,1(2,210,(1,12,1122 
1321 DATA 2,138,34,173,531,1,231,81,911 
(311 DATA 111,251,6,173,234,1,233,1,1116 
13(1 BA7S 111, 751,1, 233, 211,1, 248,4,1897 
1358 DATA 114,21, 171, 8, 173, 231, 4, 213. 9B1 
1181 IATA 241,6,144,13,32,2,130,76,651 
4371 DATA 127,145,2(1,143,288,12,32,2,911 
43(1 IATA 138,24,173,253,1,1)3,81,141,421 
1318 DATA 253,4, 173, 231, 1,183, 8,141 ,138 
4411 DATA 234,1,213,232,6,144, II, 171,1191 
(III DATA 231,6,215,251,6,144,3,76,444 
4128 DATA 116,145,12,2,118,76,127,145,811 
4411 DATA 211,175,210,1(7,169,17,141,178,1251 
41(1 DATA 134,24,173,253,6,113,11,1(1,9(1 
(451 DATA 242,1,173,254,6,113,1,1(1,127 
4411 DATA 213,6,96,32,101,139,173,2(1,1111 
4471 DATA 6,133,285,171,241,6,210,1,975 
4481 IATA 76,2,130,133,286,111,8,177,842 
4448 DATA 285, 145, 283,211, 192, 81, 144, 247, 1416 
43TI DATA 24, 163, 213, 115, 98, 133, 213,143, 11(2 
4513 DATA 216, 115, 1, 133, 211,2*3,243, 6, 1114 
(521 DATA 1(1,25,161,213,213,2(2,1,144,1136 
4331 DMA 10,163,211,141,251,6,165,214,1155 
434) DATA 141,254,6,119,1,111,231,4,917 
455) DATA 76,2,138,21, 165,2)1, 1)9, 8), 791 
1568 DATA 131,2)3,163,211,1(9,1,111,214,1147 
457) DATA 2)1,115,111,183,56,163,2)1,233,1322 
1508 DATA Bl, 111, 733,1, 113, 214, 231, I, 1182 
4311 DATA 111, 291, 6, 119, 1,1(1, 291, 6, 917 
46H IATA 76,2,110,169,1,111,241,1,771 
4611 DATA 111,171,134,141,170,159,141,179,1774 
4121 DATA 199,96,211,61,96,171,246,6,1112 
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4731 DATA ii,)j,Il,a,t,U,l,m 


4121 7 [KBtllHIjCHMIIWil III? 419211? Will? 4)11 


4711 DATA Mi! 23 


4911 7 -PDKEB4S, 12:L. a :PD5IT10N l,lif«E B42,l3iSTOP 


IHI1 l>OBRIADR(llKAM(M),LtHIAt),IS») 


1771 BOSUS 4631 

4781 FOR H'N ID N'DI STEP II 


IIK3 SETUW 



Montezumas Revenge 
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2 OUT* KANN ICH ,2, 1113 

] DATA 111 BIST, 4. IMS 

I DBTft NASUH BIST Ell WCHT,*.llt» 

1 MTU ICH BIN MEHT.4,1113 

I BATA [f.H SIN, 4. 1(17 

7 DATA iCH FUEHLE.3.JBS1 

s data mm am ;cn hicht,!.ii14 
i w« bist Bii,j.H2s 

II DATA ICH KAMH N1CHI ,3.112! 

ii data ich hoechte,;, US 

ta DATA ICHN[LL,],U32 
11 tMTA H)S,7,1I3T 

14 DATA U1E.7.1BJ7 
19 DATA HAHN. 7,1137 
liDATAIARUH,7,ll3; 
17 DATA DU,!,lt44 

15 DATA C0«PUTEft.7.l«i 
1) DATA FREUHD.3,1193 
21 DATA ]A,J,ilS4 

21 DATAHE1N.4.1I3? 

22 DATA EllSi.J.Hi! 
S3 DATA ATARI,3,1IM 
24 DATA TRAUH.S, 1173 
2JMTA BETSMUAT.J.1173 
2e DATA NICM7.2. 1BT* 

!7 DATA INNER. 4, 1*78 
28 DATA HIEBEH.4, 



H [ATA AN 



4.II7B 



SI IAT»8LAUBE,2,li!! 
II DATA DEKE,2,1IB2 

32 DATA KIHE,2.1H2 

33 DATA HAHE, 2,1184 



17 DATA KIN,:,1!M 
39 DATA E*TS:H1JLDI6{,3,iK« 
37 DATA ENTSMJLt-ISUNE-.J.IBW 
48 DBTfl VES!E1H£, 3,1814 

41 DATA VEMEiHUNS.J.ltli 

42 DATA HALLD, 1,1)1! 

43 DATA oJTEW 1*6,1, IB" 

44 IATA Ijh SEiSPIEL.S.iHt 
4) DATA AEHHL ICH, 3,1111 

41 DATA ND KE1,7,IIH 
jiH data mar, BULL ICH HLCHT . 1CENN 
EH?. 22 

llll DATA VIELLEICHT WECHTE8T DU DABS 
J EUAN D AHDERES (ANN?. 45 
1H2 DATA DOECHTEBT DU DABS ICH _ KAHN 
7,23 
1113 DATA VIELLEICHT NOECHTEST DU HICH 



1114 DATA HDECHTEST Dl> 7,14 
III! DATA AUS IELCHEH GRUN6 SLBI169T DU 
DA99 1CH_BIH7,3? 
lilt DATA SEFBELLT E9 DIR DABS ICH _ B 

in?, a 

IBI7 DATA VIELLEICHT NOECHTEST DU AtlCH 

_ BE IN?, II 

1MB DATA SLAUS5T DU HANCH31AL _ZU 5E1 

N7.21 

18B1 DATA BLAUBST tU HlftKLICH ICH BIN 

HI CUT 7.39 

llll DATA 8EFAELLT ES DIR DAB ICH NICH 

T B1N7I1 

1111 DATA E3 SAUERT VIELLEICHT HICHT H 
EHRLAWE- DANK BIN ICH.., 33 

1112 DATA HDECHTEST DU DABS ICH . BIN? 
,23 

1)13 DATA BIST DU MIRKLtCH HICHT „ 1,1. 

1114 DATA HARLin BIST DU HKHT _ 7,21 



(J DATA B19T DU ID HIS 6EKDMEH HE 

J BIST!. 33 

IB'DATA HIE LAME BIBT DU.SCHDH . 



1121 DATA EfitAEHLE HIS HEHR 'JEBEH SOLC 

HE BEFUEHLEM 

112! DATA FUEHL8T HJ DIES 0FT?,l 

1123 DATA HABST DO EB DAS 1U FUEHLEH7, 
I 

1124 DATA BLAUBST DU DA3B DU HDEHNEN 
S«.ITE8T7,2I 

1129 DATA NARtin KAMN9T DU NICHT _ 

1124 DATA HARM BISTDU SD DARAH 1NTERE 

BSIEHT DIE9 1U ERFAHR£H7,I 

1127 DATA lUERMST DU ES iEVMIUBEH HE 

M ICH HICHT HA£RE7,42 

1126 DATA VIELLEICHT BLAUBST DU NUR DP 

=S ICH 5IN7,3* 

112! DATA HDHER HE1BS: DU DAS?, I 

llll DATA HAST DU EB AUSPHDBIERT?,! 

1B31 DATA VIELLEICHT KANH9T S-J N-L.-N _ ' 

,2t 

1132 DATA IMS NUERDE DAS FUER DICH BEE 
EUTEHT.I 

1133 DATA NAM HDECHTEST DU AUSSERECI 
NET DAB?, I 

1134 DATA ADC" ICH NOECHTE DIES DFT - 
ABER IAS 1ST KEIH PRUBLEN FUER HICH!, I 
113! DATA ICH BIN SICHER DU N1RST DIEE 
ES 1IEL BALD EBREICHEN!,* 
lib DATA NAB MERE HEU DU DIEBE3 HE 
L HIE ERREICHST7.I 



1137 DATA BARUR FRJSST DU7.I 


BE1SFIELI.I 


IIH2 FM 1*1 TO AMZAHLKEViARMVIII-l 


11 IB DATS 1HTERE931ERT DICH D1E9E FRAO 


11"? IATA MH?,I 


IHE1T 1 


E HIRKLICH?,! 


IBBB BA7A HIRKLICH JHHER7.I 


3IH4 ? 'l-iPOUE HI*) -BOTE* TAB.'i 


1134 BftTft .E.CHE AUTHOR! HUERDE US DE 


11B1 IATA HORAH CENkDT III 1H IE90HDEAE 


7 'ICH BIN ELISA - 3PR1CH DOCH EIN HEH 


UN AH BE ST EH BEFALLEN? ,1 


H7.B 


IS HIT HIR." 


114) DATA WE IENKET DU DMUEBER?,! 


189: DATA E4.MII9T HI DIES UIRHLICH?,! 


3SMS TRAP 311 14 


1941 DATA FRASST DU BO ETNAS OFT 7,1 


11B3 DATA AEER DARIN BIST DU D1S NICHT 


ItllB 7 i INPUT £IN0ABE*|7 i IF E1HBABEI 


11(3 DATA KELCHE SEDANUH KCHHEH DIB I 


BICKER?, B 


■'LERHE' THEN 3BI22 


El DIESER 'RAGE?.! 


IB 84 DATA NAHEH INTERES5IEREN HICK HIC 


Wll IF ElBSABEt-'SAVE- THEN SAVE 'Dl 


1144 DATA HIR SEDER UEBEB OR RICH! U 


HT,,I 


EL1SA.BAS' 


EIEil RICH!,! 


1183 DATA ERZAEHLE HE ITER • MHIM BEDE 


31112 FOR I>1 T0LENIEIHBABE1I 


1145 DATA DL RE1EBT DDCH lift! tURKLIC 


UTEN NlCHtS.,1 


31114 IF ElH3ABClIl.il>', 1 OR EINBABE1 


H OEKR MICH - 0DEA7,I 


IIB6 DATA IBT DAB AUCK DER BAHRE OROND 


IU)"',' DRE]HBAiEIII,ll> , 7' THEN El 


1144 DATA ERECHREHEH' DICK COHPOTER?,! 


?,l 


H3AJE1I [,[!«' ' 


1847 DATA BEHEST 10 VON HIR IN IEEOKDE 


IBB7 DATA FALLEH D1R KEINE AHDEREH BJO 


mii, IF E1HBABEKI, ]!■'!■ THEN EINSAS 


REH7.I 


ENDE E1N?,( 


EHI.Il- ■ 


II4B DATA FUERCHTEBT DU DICH VDB HASCH 


1BBS DATA ERUAERT DIES NOC» ETBAB AHD 


31110 NEXT I 


1)01,1 


ED97.B 


mci reh 11'nmmmiitn.nm 


1B4" DATA BARUR ERNAEHNST 3D CDBPU1ES7 


IBB? DATA BAB FUER E1H ERIM HAS DA HD 


31122 REH (SUCHE SCHLUESSELMDR7 •<• 


,1 


CH BE9TEHEM?,B 


38124 REN HHHHHHIIHHIIIHII 


1191 DATA BAB HABEH RABCHIDEH AIT DEIH 


IB7I DATA DU SCHEIN3T HICHT BE* SIEHE 


3M2A FOR 1*1 TO ANIAHLKE) 


EH PROBLEH IU TUEH?,1 


R IiJ SEIN.,1 


3H2B RESTORE IiREAD KEy«,IMIAN2AHL,IE 


1131 DATA 8UMIBST DO COMPUTER KDEHHEM 


1171 DATA (AHMET DU DAB HICHT POSITIVE 


ILENHUHHER 


DE« "EHSCHEH HRFEN7.I 


R SEHEH?,! 


1BD3B IF LEHIEIABAIEIKLEHIKEYI) THEN 


1192 DATA "AB 1H BEEOHDEREH BTDERT D1C 


IHI- IATA BIST IU HICHT SICHER7.B 


aw 


H m IWSW1NEN7.I 


1174 DATA HARUH IITERESSIERT HI DICH 9 


31132 FDR B>) TO LENIEINBABEI1-LENIKEY 


1193 DATA REBEN DICH BE I HE FREUNDE AOF 


FUER RICH ?,B 




M 


1173 DATA STOERT DICH DAS AM HIR ?,B 


31(34 IF EINOABEtlB,B>LEHIREtll-ll-KEt 


11)4 DATA BIST DU SICKER DASB DO BIRO. 


IB?i DATA ENTSCHOLD1SE DICH DDCH HICHT 


lll.LENKEIIil THEN 31132 


ICH FREUHDE KAST7.1 


.,1 


31134 NEIT 9 


IKS DATA BTDERT DICH ETBAB All DEINEH 


1177 DATA ENTSCHOLDIS0N6EH BIND DOCH B 


31130 REM HBWiMBMMBWtW 


FREUNDEH7J 


lAKLICH HICHT H0ETIB..B 


3B14B REH i t HAELI DIE STELLE 


IH4 DATA E1BT DU S1£HER?,I 


l«S DATA 9EI HICHT 90 0NTERTAEN1B. ,1 


0E9FEICHERT AB DER IH EIWAEE- 


1197 DATA ICHVERSTEHE.,1 


1179 DATA 3R0E9S 9DTT - ERZAEHLE HIR i 


SATI DAS 


1B9B DATA DAS LEOCHTET HIR EIH.,1 


TWS.,1 


31147 REN BCHLUESSELHORT BEB1HHT,! 


SIS! DATA SAB MEWLS HE1H - DAS IBT B 


1111 DATA IN HIE FERN7.I 


die hummer mm 


D EHDBUELT1B. ,B 


1111 DATA IN BELEHER EE1IEHUN0 SE5TEHT 




IIU DATA WfiOH NICHT7.I 


EIRE AERHIEHIIEIH,! 




1B4! DATA BIST DU S1CHER1,B 


1112 DATA BIEHST DO DA BEITERE VERBIHD 


3*143 J>44iREH IHIR DANH NENN VEIN 


11a! DATA BARUH HEIN7.I 


UNBEN?,I 


SCHLUESOEL BEFUNDEN HJROEttf 


1043 DATA ICH EENKE B1R SEDER UEBER DI 


111! DATA (ANN DA HIRKLICH EIHE VERBIH 


3BB3IHAlAHlAHL-7lIEILEHHUIMER-l!li 


CH - HICHT UEIERHICH.,1 


DOHB 1E9TEHEN7,! 


31192 ARRAdlKARRAYIIHliIF ARRAVIII) 


1X4 DATA BAB IBT HIT HER?,! 


11E4 DATA DARIH BCHE1HBT DU DM EICHER 


HAIAN1AHL-I THEN ARRAVID-liEOTD 3113 


HAS DATA HAROH NENHST BU ANBAOERND HE 


IU BEIH.,1 


2 


IKE" HAHEH7.I 


11U DATA BAB HAST DU SPEIIELLE PRD1LE 


39134 RESTORE lEILENNOKMER'ARRA(ll) 


1144 DATA DAS BIND HIE BESTEH CDHPUTER 


If 7,1 


31134 READ AHT10RT1,PLATI 


NICHT NAR7.R 


lib DATA ICH VERSTEHE.,1 


31I3B AEH i DEW PLAI1 <> 1 1ST DANK 


1(67 DATA 1CH BIB MICH E1H ATARI - DAB 


111? DATA HON tONH SCHOH ERIAEHLE HIR 


NIRD DIE SATIIERLESONB HDETIB* 


STOERT DICH DOCH NICHT?, B 


K1ME 9EDAHKEHM 


31149 HEH 1 AHDERHFALLS DIRKEKT iUN 


lata DATA REDE ST DU UEBER HICH IN BESD 


1119 DATA DAS IBT EEHR INTEREBBAMT.,1 


BILDBCHIRHAUFBAU Htt.t.ti nit 


UEAEH7.I 


111! DATAACH KIFttLlCH?,! 


.11142 IF PIATI'I THEN 5010 3HB! 


1173 DATA IMS ERKLAERT D1R DER TRAOH7, 


1111 IATA ICH BtH NICHT EICHER OB ICH 


31144 REN tl.4l.4IH.tttttHHt.ttt 


B 


DICH R1CH11B VERBTEHE.,1 


31B44 REH 1 BATI1ERLEBIM Htnwll 


1174 BATA TRAEUHBT DU OFT?,l 


1111 tAIA HAS H1LLBT DU DAHIT SASEN?,! 


31140 REH HHHtlHHHttHHtHIt 


IB7S DATA NELCHE PERBGHER EBBCHE1NEN 1 


1112 DATA ICH BIN EINER .,9 


31l7IINlSCHEHfA»THC«TllPLATZtl,LEHIA 


H DE1NEH TRAEUHEH?,B 


27749 LASUERE'llil 


MTH0RT1 1 1 


j«7s DATAHARUN HICHT . 7,13 


27977 AH Z A HI KEY* 16 


3lt72AHTHDP,T)IPLATZ>-EIWAB£tlS«,EM 


IIT7 DATA BIST DU BICHER7.B 


38119 DIN EINOABEllBII.KEmSD.ARRAVI 


EYI)tl,LEHIEIHBASEIIl 


1171 DATA HENN HIR 1ITTE EIN KHHKRETEB 


AMAHUEYI .ARTMRT.IUBl .ZNIBCHEHt III) 


3BB74 ANTHDRTKLEHlAHTHDlillltlfZBISCH 



ENIiWlSCHENC" 

IM7S REH mn n i mmi ni HHww 

3B17B RED > NOSIUNBBO AUBBELEBT FUSS 

i IS IE] CHEN PRO IEILE •• 

3IHI RED I tli mi l lH M WIHWHH t 

3IH2 IF LEIISITMRTtK'SB THEN T «N7» 



SIH4 IF »NIWlSIt[3J>' " DR AHTIDRIII 

IS)-'- 1 THEN ? »HT*0R7*i60T0 3HU 

SIHt FDR ]■!! 10 I STEP -I 

3IIIB IF WTHRTIII,!]-' ' M UTkOKTI 

II, ]]■■-' THEN mil 

31171 HE IT I 

3IK2 II 1 flWHI'WlMlRTI 1 1 . LEI IMIT WH1 

311)1 FOR t>I ID 38IANU0R7HB.B!'* 'I 
KIT I 

3 1(! fc SRTtOR i 11 SI I ' I< 1 SCHEHI ! I • i SC HEM 

31199 7 RUT NORUl 6070 Hilt 

31 III REN i mmuwm 
31112 RED I FEHlEfl UFNII 
31! It REN llt H tl ltU I H I 
ICH BIN NICrfT ! 



31114 REH i 5*lf7 - I i KfUUElCHNET 
■ DIE 5TELLE IH RHTI0R1SATI 

3iilt SEN • MDERIER REiT DEE 
> EINBABESR1IES 1 KSCH 
t BED ECHLJEEEEL 1 

311IBREN4 ANBEHAEN8T WJRD 

31121 reh utm i ii h i iim mmum 

Mil! IF FREilKiM THEN BMPHICB Ii5 
'LEIDER HICMT OENJB SPEICHER UORHWEH 



D1CH 

311 IB RE" i nn ■mUl m m t mn H 

31111 REH • LEfllE Hi KSCHR1EBEI 
3111! RED > El DUERFEN HEINE KMHATA E ! 
I INBEBEiEH HE 



■ilDTII 31 

LAUTET DEB 9CH.UES1ELIRT! !' 

31126 IHPUT ElUAKIiFM !') TO LENEE1 

MAEEIlilF EINdABEtl ],!>•,' TCI? "1 
E1ME KDHIMTR - IEUE EINOAEE'iBBTO 3112 

31129 KIT I 

3113* 7 'IIEVIELE MTWMTEH'i IHPUT MI 

Mat. 

31132 BRHPH1ES It? t? i7 i? iFKE Ml, 

I 

31114 ? AHZAHLREV'lI'D.'lEIIBUEIC'i 

HRIAHZAHUVUMTIEILE*! 

31131 ? -2WB LMTZE ILE-* | LMT 1 El LE* 1 

3I13B 7 ^mtAUAHLRET-'lUlWUEItl 



MI4E LASTlElLE>LAITIEILE<llRIIZAHLaV> 

WHHLKEYti 

MI4B !■! 

31191 7 -RNTIIORTttTI'ilHPUT EIHBAEEI 

3)1!2 FOR >l TOLEIIEINMKDiIF EIRE 

ABEIII, [>',■ THEN? 'REIN KOHHATA - 

NEUE EllBABE'iBOTO 31151 

JUS* REIT [ 

JE156 FOR 1-1 TD LEKltltiABEMiF E1NE 

ME1IL.II-' " THEN Pl.flTI-l.9DTQ 3111! 

M13B REIT I 

311 it FLATI-I 

)IU! ECAPHICS Ii? i7 i? iPCRE 335,1 

ilia* 7 LASTlEHEl'B.'lElHBABEti'.'iPL 

ATI 

Mlit 1 'CM.VQBIT1BI 2,llPKE 842. 1 

JlBTDP 

51 lie KG BI2.12iBRAPHF.CB ULABTIEILE 

■LASTIEILEHlPDHE H7.34 

31171 B-B+li IF BtUIAlAElWL THEN 31131 

31172 RUN 

JII74 REH HHHIIHHIIflllHHIH 

3017b REH I EL1BA PROBRAHR • 

31:79 REH ■ BEBWRIEEEH VDR > 
111(1 REH I FRANK BIETRICH * 

51182 REH I AUF DEH BRABEH *4> 

3IIB4 REH I 4517 INBELHEIH > 

3I1BA REH tiitilttltlllttititiitltl 



2000 Geschenke auf der 
Atari- Weihnachtsshow 
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Die Sucer-HilisiliEiliEttE fur Ihren nTflBli 
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fckeitfQr 
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BHSIC-Ziubtrer ■ das sind^ 

■ BflSIC-Erueiterungen vjie 



Tolle Hi 1 f^ragr-ariE 1 wit 



und uleles nthrinur on 29 > 



^ 7 



Ohrenschmaus: 
Soundmachine 



Bast.-Nr. AT 1 2 

Lehrreich: 
I Das Assemblerbuch 



Beat.-Nr.AT10 



3 



Atari Power Super buch 



Best.-Flr.AT3 



Nachschlag: 
l Die Hexenkiiche 



' Best.-Nr.AT4 



8 
9 



Zuschlag: 

Diskzu Hexenkiiche 



Best.-Nr.ATB 


19.80 DM 


Fix: ATMAS-II 
Macro Assembler 

Bcst.-Nr. AT 6 Diskette 49.- DM 




Geistsparend: 
ATMASToolbox 


r|re|; £. 


•u 


Best.-Hr.AT7 


19.80 DM 


Praktiseh: Monitor XL . 

Best.-Nr.AT8 18.80 DM 









Brandneu: Design Master 



■ml-Nt. AT 9 Diskette 1 8.80 DM 
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Computer Kontak: i-.W-.v 



Neue Displaylist mit dem JMP-Befehl 









Bytes His neue DisplaylisI 






Beispiel 1 

2 REM • Beispiel Nr. 1 

3 REM • Graphics 15*16 Bildaohlrm * 

4 REM « ober- und unterhalb jemeils * 

5 REM * zwel Graphica Textzeilen: • 

7 REM 

10 GRAPHICS 15*16:REM Graphics 15 ohne TextfsnEter 

11 POKE 703,d:REM Dem Computer ein Textfenster voreaukeln 

12 S-1536:REM neue Displaylist in Page 6 

13 DL-=PEEK(560)+PEEK(561)-256:REM Adresse der Graphics 31 Display-List 

15 POKE S,64:REM 5 leers Fernsehzeilen 

16 PIKE S+1,66:REM Qraphlcs Zelle und Adi-esse laden 

17 POKE S+2,PEEK(660)!REM Textfenster als BildEchiraispeicher 

IS POKE 5+3 ,PE£K( 661)1 REM fuel- die Graphics Textzeilen 

19 POKE S+4,2:REM zweite Graphics Zeile 

20 POKE S+5,1:REM "JMP" zurueck zur Gr. 31 Display-List 

21 POKE S+6,FEEK(560)+3:REM Adreese der Display-List +3 

22 POKE S+7,FEEK(561) 

23 REM Das waren die ersten belden Zeilen! 

24 REM 

25 POKE S+8,66:REK dritte Textzeile und Adreese laden 

26 POKE S+9,PEEK(660)+80:REM Textf enster+ao Bytes <40 Je Zeile) 

iet Adresse fuer die 3. Zeile 

28 POKE S+11,2:REM vierte und letzte Textzaila 

29 POKE S+12,65:REM Illarte Buf Vartikal-Synchronimpuls und 

30 POKE S+13,F£EK(560):REM springs dann an den Anfang der 

31 POKE S+l 4, PEEK 561): REM Graphics 31 Display-List 

33 REM Danit 1st die kleine Displaylist fertig. 

34 REM Sie braucht 15 Bytes Platz im Spelcherl 

35 REM — 

36 REM Jetzt die JMPs eintragen: 

37 POKE DL.lrREM aus <112> wird <1> - JMP 

38 POKE DL+1,0:REM aus <112> wind <0> - Lowbyte von 1536 

39 POKE DL+2,6;REM aus <112> wird <6> = Highbyte von 1536 

41 rem * die folgenden POKES muessen Je nach • 

43 REM *#*»#**»».*#•»*»***•».**•**********•■**** 

44 POKE DL+139,1:REM aus <65> wird <1) - JMP 

45 FQKE DL+20C.a:FEM Adresse des zweiten Tells der DLiEt 

46 POKE DL+2C1,S:REM bei 1536*6 

47 REM Fertiel 



5 POSITION O,0:XIO 1 



Beispiel 2 



.-,- ■ 



5 REM 

7 ? "Welche Sraphikstufa <9..11> "j 

I INPUT 3R 

] IF QR<3 OH Qfi>ll THEN 7 

.1 GOSUB 41 

.2 POKE 703,4:REM deIJ Computer Bin Textfenater voreaul 

.3 ub.FEEKC560) + PEEK<561}*256iREM Adresse System-Disci ayi 1st 

.4 S=153 6! REK Adresse der "Te*tfenster"-Di e playli, 

.5 POKE S,129:REM sine Learzaiie und DL-Interri.nV 

.8 POKE S+l.SSiREM 1. Textile und Spelcftt 

.7 POKE S»2,PEEK(660):REM Textfenater 1st Speichei 

.8 POKE S.3,P£EK(661);REM ■ die vier Graphics 3 tatwttaT '" 

9 POKE S*4,2;POKE 3+5,2:R£M jetzt die restlichen drel Zellen 

!Q POKE S+6,2 

1 !?55 2S'*SS!I 'I Warten aut *< VBrtlkal-SynohrcniBpul 

2 POKE S-4-8,PEEK(560);REM und Ruecksprung zur 

3 POKE S+9,PEEK(561):REM Eystenieiganen Displaylist 

4 REM Jetzt SyEtem-Displayllst veraenden 

5 POKE DL,0:P0KE D> 1,0: REM aus d=n 3*8 Leerzellen warden 

6 POKE DM.MfUM 2*1 ^ 1-5 = 7 Leerzeilen 

7 POKE DL + 199,1:REM ta Ende der Displaylist "JMF" zur 

8 POKE DL + 230,O:HEM elgenen, die ab Adressa 1536 

9 POKE Qt*20i,6:RB* (Loxbyte^O, Highbyte=6) Eteht 

1 POKE 512,1D:P0KE 5:3,6:REK StartadreSEe fuer Interruptroutine 

2 POKE 542eB,192:REM Interrupt einBchalten 

3 7 "Das ist das Textfenster" 

4 FOR X-0 TO 74 STEP 5:REM. noch ein paar Streif en. . . 

5 C«INT(X/5)-l:C0L0R C:POKE 765, C 

6 PLOT X+4,0:DRAWT0 X+4,191 

7 DRAUTTQ X,131:P0S1TI0N X,0 
3 XXC 1B,#6,12,0,"S:" 

a next x 

1 HEH DataE fuer Di splay list-Interrupt ■ . 

I FOR X=154S TO 1559:READ B:FOKE X,B:NEXT X 

3 DATA 72, 173, 111, 2, 141. 10, 212, £. , S3, li; ,E7, 203,104, 64 

J RETURN 



ATARI 



Computer Ko'itahl i-J/57 



Eaufsch rift-Editor 
fiir Atari 800 XL und XE 



K-M,\:,i iiLiingi. Die Para- 
■ M]]:J prc^ii-.]i-,ii^[-;::iiKuli 



IVfC-Gcncrator 

II REH UHHt ll MmiUH tW 

24 REH • UUIFiCHRIFT-EDITDR t 

» rem • 

4i red « m > 

SI m I STEFAN MflKHTZ • 
a REN t ILUBPFU 12 t 

71 RER t 4211 FFH-H t 

N REN i TELiBi9'19152( ' 
91 RER IIIHUH I H I IIIUIIM 

HIRER 

III OPER 11,4,1,'Ei'iPDKE 71l,12iPriE 
71Z,1S2ePQKE 7I9,8iD1H 61(28!, UMi, St 
t (21) i RE SI (BE 171 

121 AMHRK 11)1 At [20 KAUAI 1 2) -At 

111 POKE 211, »:! i? ,ttt? ,,' UuticDr 

ift-EiitorV? ,AI:DIH F ILEUM), FUJI I 

144 FORT- 1 534 TO 1717 STEP MM 

III FES LNI ID 5: READ ItM+dPllKE T« 

.AiNEIT UlREAD CHKilF CKKOl THEM ? '! 

*-SI* FEHLER lii'iBB) 

1=1 NE.I1 T 

171 POSITION 2.3:? ■Bripiui.-Hnde IE,!, 

2]." Si INPUT II, RODE 

101 NDDE-THT I A£S tMDiE I J i ORB'ltDC-Es 1 F NO 

[>E>2 THEN 191 

1 91 M«-2i 1 IOTE-4 1 *4» I RDDE- 1 M7» (NODE 

■21 iPDBITHM 2,7;? ■Ililtftflimtr [1-22 

li'lIINPUT ll,!ilf 7(1 DR 1)22 THEN 14 

I 

2M P031T1W 2,1:? ■KMrucli mill tint! 

Durchlluf [J/N]:'iriNPUT ll.Jt 
211 A-AgciUI>iABI-IA'74lilF IM THEN 

IBOTO 2H 
221 POSITION 2, Hi? 'Gndwindigkiit 
1/1 1 i'iiINPUI II.UtiTRAP Bltll'WLhl 
> ■ IF UOl AND UOI THEM 221 



I3ISESl>U 

2*1 POSITION 2,111? 'Entir-Filinui il 
I'll INPUT IllFILEl 
2SI FfDi-iFIID'FILEtiCLDSE 13 
261 TRW 24llOPENI3,0,l,Fl 
!7I ? tll'll DIM LFl(2Si),TEITI(4l)Y 
IJl'II LFf "|CH!»[ 341 1 1 RESTORE IFOR ' 
■I TO III 
2BI 7 HlCHfiItP£Ei;i!HSJ5))llNEI] Tj ? 



HE1T T 



43 



Ill I? «!'« LF*(2ll)s 1 iCHSf(]li::?D» 
T«23l TO 249:7 13|MW[PEEK<l333H))i: 
NEIT Tl? II 
111 ? IJi'SI FOR T«1334 TO I764:PDKE 1 

.(SCILFt II-1533I. i m.T 1 

121 ? 13; '69 TEI»>-iCIIRI<;4)|'Lttifuh 

rift-ms "rCHRIlM, 

331 J I3|-7I ABBRVCH'-iABJl-lSESENNIND 

1BIE1T.'|6EBCH 

Ml 7 13) '91 PDKE PEEn3i9)*I34IPEEI<5 

ni*3t*ii+*,'i»ni+« 

HI ? 4 J) "94 5TASiAM'\2l44titlB3-3fi 

ors>b 1 1 - s PioiiF-- i one 

361 ? Ml 1 111 I>U3R[]3U,RHITEnt),LE 

H ! 1 E 1 1 1 1 , SBSBU CH , BE SCHN I NO 15 <E I T . 31 A«T 

AIR, NODE)' 

345 ? Ul*ll| REN ABiRUCK PER LAUFSCNR 

IFT «1T PUCE 217,3 !!!■ 

371 CLOSE I3i 7 J END 

2IH DATA II4,149.MI,13J,214,II1,714 

2111 DATA 133,2I9,1I4,133,2IB,114,B9I 

2121 DATA 114, 141, 24B, 984, 114,184,797 

2IH DATA 133,217, 114, 114, HI, 247. 934 

2141 DATA lit J (4, 133,211, 114, 111, 491 



2B5N DATA 212, 141, 171, HI, 141, 214, MB 
2lil DATA M6, 115,213, 1*1, 172.4*6, 711 
2171 DATA 141, 215, H6, 124, 115,212, 713 
21BI DATA 1(3, 181. HI, 14B, Mi, 145.584 
2911 DATA 213, 113, Bt*. 141,141, 114. ill 
211! DATA 114, 114, 211. 111,248, 113, 4i4 
2111 DATA 149, HO, 14], 134, 116,133, 391 
2121 IATA 215, 149, 122,141. ITS. Hi. HI 
2111 DATA 174,841.184, 149,114, 141,489 
2141 DATA 114,184,133,213,149,1*4,491 
2131 DATA HI. 175, Mi, 112, Hi. HI. ii( 
2161 DATA 111, 149, H7, 132, 192,228,431 
2171 DATA 194, 214, 143, 217, 211, Ml, BBB 
2181 DATA 241,119,198,215,171,247,1182 
2191 DATA H6, 211, HI, 241, 112, 195, 6*7 
22H DATA 213, 14J, IIS, Ml, HI, 248. lilt 
2211 DATA N4.H1.H4, 212, 174,244,483 
2221 DATA Hi, 1 19,814,133,215, HI, 458 
2231 DATA M4.212, 211,214,145,284, 1123 
2241 DATA 14B, HO, 215, 248,114,241,923 
22» DATA (46,132, J57,H4,l7i, 244, 581 
22U DATA 184, 162,HI, 165.249,133,475 
2271 DATA 214, 145, 2H, 111, 283, 119,1192 
2284 DATA 141, 159, 157, 139, 159, 232. Hi 
2291 DATA 224, B44, 144, 245, 134, 177. 979 
23H IATA 211. 21 1,112, HI, 11 9, 28 1, BIB 
2111 DATA (94,144,12! ,211,129,144,734 
2321 DATA 121,211, 161, 144, H7, 211, 713 
2131 DATA 224.144,819,174,213,984,172 
2348 DATA 424. 1 45, 16 1, (76, 2 II, H6, 411 
23S1 DATA 856,231,112.157,119,159,774 
2168 DATA 194, 112, 1ST, Hi, 14! ,217, 641 
2371 DATA 111, HI, 218, 113. 971, 211, 761 
21H DATA H6, 162, 223, 111,191,1(9,821 
2194 DATA H7,I32,M2,22B, 114, 216.729 
2411 DATA 16?,HI, 133,216,476,190,692 
2414 DATA 22I,IH,H1,II8, 814, 888,228 



Quick-DOS- SKKfS 
eine Kurzladeroutine £££^££^ 



Computer Kontakt 2- 



.N-Taste m IwlStigcn. Urn 



:. die riuth t'l.h.AR !■;,::■: :h:<c!tic III 



:in Program m audi die Zuf,riflsrrra E li<:li 






QUICKDOS 
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Computer Kaitekt 2-3/S7 



Danger Hunt 



■ Ksuio« 6,'lt:? HI' 



■ 






: rati posnni ii.u: 
mrrnsiTiH 11,111? "jJEffl' 

lug phitim M.lttt Ki'W'iPOi 
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TI 99/4A 



Liebe TI-Freunde Die Show des Jahres 



die einen Tl wa b™;',:i':i 


ii-: . ! i t -.T ViJcH "k i- ri \i i M ;! i n"r lii- 


.1.. >. |,i ti , i.,. 1'. 


KM BO-Zsichen-Erweiie 








































in begulachlen. Doch i 


















ELS3H? 


E33TSS 


«.-«•:! ]„ dnem Gymnasium 


111= 


^fcra^nvTl 


■"'Ti'.^.i'^S'dt'^ 


nv^'-lf^liM-r-^r'.'',''''^- 


1, m tcacn, 


?SJ«wiS 


[ ^^rind-.r 1 , 


Sr™"',;*'.'" 


,c- n .|.:.,r, : . 
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User-Clubs mid Anbiclti 




.In- ei:i iAi,:^.^:^. ^■.,;r;i ■.- 




























lien spStcr noch die Red 




















!l?|.i.i:ikiin :ik''ei V L '.rHrs;nl- 




die Tiiren geHffnel w 














irrai ilnnll :!i:- inkmliitiilli! 


ten CiB regelrechtes Chen 


































uiiei^i jiL-'iciL Au-^,h. ■■■jk:.\:. 




Midi vo:l l.fll Phillip- "in J;: 


ein be&onders giin 








"Schnappchen" zu ma 




her orlsniL-rn mi,l Ami-guni:;-" 


ntjintn. Jet in kSn ,.<th,iv 


*» ™* *?™ " slal 
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Computer KontaKi S-i/87 





TI Special 



Tuning: 128KF _ 
plus Centronics- 
Interface 

^.■■l- ML-:.:|[a'l]ausc, Versocuung (Ibec 

krTII. '-■.:! ,Uir.l, ( 'L-:jlM.r- ]J ■ |M I ■ f.-|.,^hU 

---uphill! l.-^i!:,r. [.:. Ho .. ,*c I : ]Y\ M 

Best.-Nr. T1 1 400.- 1 



Ql 



Lehrreich: ** 

TI Assembler Kurs II 




^V .**&££. 



ang erwartet: 
Tl-Assembler-Kurs III 



™«St-Nr.TI4 



Cg£ 



Zeitsparend: 
Turbo-Assembler 



(gP7 SPEZIALITATEN-BESTELLSCHEIN 



Computer Kontaf 



CPS im Dauertest 



Ik- MnsliL-hkriifusctaBffsnwei- ;-,,„ 



,.irl.<K,r Kt- C i:- j..,, ilK ^. Ul : ll 



r Wuti E ul eine M05L 



kauLi-n, uj^ -ir Aii^li.i!l'u:iy; 

Mi^aa^r- juf niikciiu-: derails 

dcivi Basic licraus rail CALL 

^.illiil Hc.il c::i fLL'irJl'CII^ 
dckihc-ifS^iemrakiwaLiiif- . 






desSyneradefektia. 
m die pirate Anlagc 
jr-ilLij Jcl'Cil.llet Com- 



Analle 

Programm- 

Einsender! 



:i CPS Conir.jMur MiiT.iin^ i.i 



Rr\l>WR[ ! b TRAi. K -<>[- ■- 



Program mi e rem fiir 
die cingesandten 
Programme 



ercen Ruck- 

ilau beinuleecn. 
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Die Traummaschine 



TI99/4A 



laSUSlithanCrnnpiilfm, 
antwurtel. Lompulcrt 



it C.isrc lili-sc, Uii-snilili-n 






esWichligcerzahli. u,j r d ab 



Hardcopy 
mil M' Mill 



■'■"■■' ■ '■n^ti'a.L 


[■l.:[.pv-B 


:: f.-VI i M.\t, 


SS5S 



I ]^in:" : ,LTiiLir J i:--i,..r 



Hardcopy 



FDR S-3 TO 30 
PRINT iiiCHRS(27>i"K" 
FOR 1=24 TO 1 STEP -1 
CALL GCHAR(Z,S,C) 
IF i;;33 THEN 10080 EL! 
FDR ABC=1 TO B i: PRII 
CALL CHARPAT(C,M) 
FOR H=15 TO 1 STEP -2 
B-ASC(SEGi(CS,H,l)):: 
IF A<5B THEN A=A-4B ELSE A=A 
IF B«SS THEN B-B-4B ELSE B=B-S5 
PRINT Sl:CHRt(B*lE+A>;:: NEXT H 
NEXT 2 

PRINT til : CHR* < 10) ; 
NEXT S 

PRINT Kl:CHR*(27)iCHR*(50):;; FRINT « 
CLOSE #1 
5UBEND 



I SOTO 10150 



i=asi:<b 



I);:: PRINT tltCHRtC 
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Mau-Mau 



Listing 



10 REM ***«*«*******(»«' 

(St* *JCCHEN LITZENBERSER* 

100 ON BREAK NEXT :: CALL CLEAR :: OPTION EASE 1 

:: GOTO 140 

110 CALL COLOR :: CALL CHAR :: CALL HCHAR :: CAL 

EN :: CALL 

120 C*,D*,E,E», 

130 !@P- 

140 CALL SCREEN(2):: RESTORE :: FOR 1-1 TO 10 :: READ ACI.T 

CALL COLOR<0,3, 1,1,15, 1,2, 14, 15,3,3,1,4,3, 1,5,3, 1,6,3,11 

150 CALL C0L0R(7, 3, 1,3,3,1, 9, 14,15,10,14, 15, II, 14, 15, 12, 15,1, 13, 
: READ J,C* :: CALL CKAR<J,C*): : NEXT I 
3):: CALL SPRITEdll, 132,3,1,17):: DISPLAY AT(6, 



: CALL KEY : : CALL SCRE 



1,2):: NEXT I : 



: FOR 1=1 TO £4 

160 CALL MAGNII 
:: DISPLAY ATi 
170 DISPLAY AT 



I,--.-.- 



it . : 



" "KW. 



ISO DISPLAY 
JpqrX" :: 
190 DISPLAY AT 
CALL 

: DISPLAY ATfl,5): "DU HAST 

: CALL HCHAR<4,22,92,5: 

*<5,27,94,7):: CALL HCI 

T(19,ia)i ,, ANFANQEN ?" 

I,J):j IF 1=63 OR I-: 



: DISPLAY ATn3,4):"&!!!' 

»jklX" 

■flefV. toioK' :: DISPLAY ATU6, 4 

Wt«y *#«tty KtttMty" 



KARTEN' 
210 CALL YCHAR' 
" :: DISPLAY 
220 CALL KEYC3, 
230 CALL MISCHi 



tgrtiX 
PLAY AT<17,4):- 

22,ll>:'e 5<19B&" :: DISPLAY AT<24,4):"BY JDOEN LITZENEERGER" 
: CALL DELSPRITE(M):: CALL CLEAR 

ICK HABE" :: DISPLAY ATC2,5):"0 KARTEN 
CALL VCHAR (5,21, 93,7) 
:<12,22,95,5):: DISPLAY ATC17, 19): "HER SOLL 

DISPLAY AT(22,ia):"DU ODER ICH" 
THEN CALL CLS ELSE 220 



B*(,)> 



l" AT(1B,21): 



■ :: FDR J-l TO 6 :: CALL SZKAtC, ),Bt(, 



: DISPLAY AT(20,1S):"VERTEILE > 



240 CALL CI1M 
250 H-H+i M E 
10,1>,A(10,2>> 
260 CALL HCHAR 
270 IF F*="SIE 
IS.iaii'ZMEI k 
2B0 CALL SZICA 
: CALL CLS 
290 IF F$="ACHT n 
,20>:"EINMAL" 1: 
480 

300 DISPLAY AT(1 
:D* :: I-PDStDt, 



i CALL HCHARC20, 20,32, 10):: IF I=6B THEN 4B0 

-Ji E=0 :: DISPLAY AT(17, 19):"DU KUSST" :: DISPLAY AT( 

^_AY ATE2i,19):"ZIEHEN >• ELSE 290 

,),E*,F*,H,F)I! CALL SZI(A*(,),Bt(,),AC,),E*,F»,H,n: 



VTC21, 17)SriEt 12) VALIDATE CUALPHA) 



,LENCD*)-I):; IF C*="KANN" AND D*="NICHT" 

l,F):: CALL CUB :: GOTO 480 
HERZ" OB C*="KARO" THEN 340 
E5E KARTE" :: DISPLAY AT(20,20>: "GIBT ES" ! 

ZEIT : : CALL CLS : : GOTO 300 

"NEUN" DR D*="ZEHN" OR D*="BUBE" OR Di="DA 

' ELSE 330 



310 C*-SEB*(DS, 1,1-11:: D^SEGSCDi^H 

THEN CALL S 

320 IF C*="KREUZ" DR C«="P[K" OR C*="H 

330 CALL CLS :: DISPLAY ATC18, IS! : "DIE 

: DISPLAY ATC22,20): "NICHT >" :: CAL 

340 IF Dt-'SIEBEN" OR D*="ACHT" DR D 

ME" OR DS-'KOEMIS" OR D$="AS" THEN 3 

350 FOR 1=1 TO ? 

360 IF C«=AS(I,1)AN0 Dt^AtCI,2)THEN 330 

370 NEXT I :: CALL CLS !! DISPLAY ATC17, IS) : "DIEBE KARTE" :: DISPLAY ,ATCig,201: " 

HAST DU" :: DISPLAY AK21, 20): "NICHT >" :: CALL ZEIT :i CALL CLS :: GOTO 300 

390 IF OS^'BUBE" THEN 400 

390 IF C*=E« DR D*=F* THEN 400 ELSE CALL CLS :: DISPLAY ATC1B, IB): "DIESE KARTE" 

:: DISPLAY »T<20, 17) : "PASST NICHT>" j: CALL ZEIT :: CALL CLS :: GOTO 300 

400 IF DS="BUB£" AND F*="BUBE" THEN CALL CLB :: DISPLAY AT(17, IS): "BUBE AUF" :: 

DISPLAY AT(19,19)! ,, BIJBE GEKT" :: DISPLAY AT121,20)i "NICHT >" :: CALL ZEIT :i CAL 

L CLS : : SOTO 300 

410 Et=AttI,l)ii F*=A*CI,2):: MtI,l),A*CI 1 2)=" :: CALL KCL5CAQ0, 1) ,AtlO,2)): : 

CALL KARTE(E*,F*,AU0,1),AC10,2)):: CALL KCLSCACI, 1),A(I,2» 
420 F=F-I :: DISPLAY AT(2,4)SIZE(2):F II IF F=0 THEN CALL CLS :: DISPLAY ATH4.2 
0)!"DU HAST" :: DISPLAY AT(16, IB) : "GEWDNNEN >" :: GOTO 690 
430 IF Ft-"SIEBEN" OR F*="ACHT" OR F*="BUBE" THEN E=l 

440 IF F*="BUBE" AND E THEN E=0 :: CALL CLS :: DISPLAY ATC16, 17): "UELCHE FARBE" 
:: DISPLAY AT(IB,I7):"WUENSCH5T DU" ELSE CALL CLS :: GOTO 4B0 

450 DISPLAY AT(20,20):"DIR 7" :: ACCEPT AT<23,20)SIZEC5)VALIDATE(UALPHA):C« :: I 
F C«="KREUZ" OP C*="PIK" DR CS="HERZ" OR C*="KARO' THEN 470 

460 CALL CLS :: DISPLAY ATC17, 18): "DIESE FARBE" :: DISPLAY AT<19, 19): "GIBT ES' 1 : 
: DISPLAY AT(21, 20): "NICHT >■ :: CALL ZEIT !1 CALL CLS :: E=l :: SOTO 440 
470 E*=Ct :: CALL CLS :: GOTO 480 

4B0 IF F*="5rEBEN" AND E THEN E=0 :: DISPLAY ATC17, 19>:"ICH MUSS" :: DISPLAY AT( 
19,1B):-ZWEI KARTEN" :: DISPLAY AT(21, 19): "ZIEHEN >" ELSE 500 

490 CALL CZICA»(,),B*(,),ES,F$,H,S):i CALL CZKA*(, >,B*C, ),E$,F*,H,e>: : CALL CLS 
500 IF F*="ACHT" AND E THEN E=0 :: DISPLAY ATI17, 19) : "ICH MOSS" :: DISPLAY ATU9 
,20):"EINHAL" :: DISPLAY AT(21,lS)t "AUSSETZEN >" :: CALL ZEIT ii CALL CLS :: GOT 
270 

510 DISPLAY ATtlB,17);"MEINE KARTE:" :: FDR 1=1 TO 9 
520 IF A*a,3>=£* AND A*(I,4K>"BUB£" THEN 600 
530 NEXT I :: FDR 1=1 TO 9 

340 IF Atn,4)=Ft AND A*tI,4X>"BUBE" THEN 600 
550 NEXT I :: IF F«="BUBE" THEN 590 
560 FOR 1=1 TO 9 
570 IF A*fI,4)= n BUBE" THEN 600 
5B0 NEXT I 
590 DISPLAY ATf21, IB) : "KANN NICHT" :: CALL CZI (Mi, ),B*<, ),E*,F»,H,6) : : CALL CLB 

: : GOTO 270 
600 E*=M(I,3):: F*=A*CI,-t) : : At(I,3) , At CI, 4)="" :: DISPLAY ATC21, 17) :E*!t" "&Ff 
:: CALL KCLS:A[10,1),A(10,2)):: CALL KARTE(Et,F(,AC10, 1),A110,2)) 
610 B=G-1 :: DISPLAY ATt2, 16)SIZE<2) :S ;: IF G=0 THEN CALL CLS ii DISPLAY ATU4, 
19):"ICH BABE" :: DISPLAY ATC1E-, IB) i"GEWONNEN >" :: GOTO 690 
620 IF F*="BUBE" DR Ft="ACHT" DR Ft="SIEBEN" THEN E-l 
630 IF F*="BUBE" AND E THEN J,K,L,M=0 ELSE CALL CLS :: GOTO 270 
640 FOR 1=1 TO 9 



650 IF A*<I,3)="KR£UZ" THEN J=J+1 El 
3)="HERZ" THEN L=L+1 ELSE IF A*(I,3 
660 NEXT I 

670 IF K(J AND L<J AND ttCJ THEN E* 
PIK" ELSE IF J<L AND K<L AND M<L 
680 CALL CLS :: DISPLAY AT<17,17 
:: CALL ZEIT :: CALL CLS :: GOTI 



= -'PIK" 
1=11+1 



1 ELSE I 



'KREUZ" ELSE IF J<K AND L<K AND M<K THEN E*=" 
THEN E*="HERZ" ELSE E«="KARO" 

:CH WUENSCHE" :: DISPLAY AT [19, IB): "MIR: "&ES 



88 Tl 99/4A 



690 DISPLAY ATC19, 19): "N0CH EIN" 

, 17>:"JA ODER NEIN" 

700 1=1 :: CALL MUSIK(I):: IF 1=13 OR 



DISPLAY AT<21,20):"5PIEL ?■ ;: DISPLAY AT( 
78 THEN CALL CLEAR :: END ELSE IF K>7 



CALL CLEAR :: FOR I-l TO 9 :: FOR J=l TO 4 

; i=i 



E,J)=* 



: NEXT I 



43, 1E1EIE0C 



720 DATA 4,3,4,0,4,13,11,3,11, 

730 DATA 33, OOOOOOOOFFFFFFFF, 3 

FO , 3B , 00000000030 7 OF OF , 3S 

740 DATA 40,070FIFlFlFlEIElE,4l,FFFFFFFFFFO70339,42,E0FSF8FtFCFCFCF£,4 

0C040404, 44,0341610159710101, 45, FEFEFEFCFCFBFOF 

750 DATA 46, 34C60B1 122440B11, 47, 0107FEFA5191901, 59, 000000007C, 60, 0000040810204,6 

1 , 000000000030 102 , 62, OOOBOBOBOaoaOOOS, 64, 3C4299A1 A199423C 

760 DATA 91 , 000000000000303, 92, OOOOOOOOOOOOOOFF, 93, 0101010101010101 , 94, B 

OBOBOB, 95, FF, 96, B0609C4E1F3FFFF 

770 DATA 97, 0000000001020404, 9B,003E7F7FFF7F3F1F, 99, 00000080COCOCOB, IC 

05060607, 101,9F1FIF1F9E1E1EIC, 102,9, 103, 0702040B30FCFFFF 

7B0 DATA 104, IFOOOOOOOOOQFFFF, 105, 00B04O2O30FCFEFF, 106,0306060606070303, 107,2466 

66246DFFFFB1 , 10B, COCOC040COC030B, 109, 03030 7O7O70FOF0F 

790 DATA !10,0062000BlS02221C,lli,aoaOG04040EOEOF,112,3F3ED4100C03,ll 

414E3, 114, F0F00C2320C, 115,4163554941414141 

BOO DATA I16,lC2222223E222222,;:7,222222222222223E,!18,(KX>00O0O7E,lH 

7E3C1S,120,OFOF0703, 121,FOFOE0C, 122, F 



, 137, 1C22221C222222: 



B30 DATA I41,O0B0B0B0B0B08 
840 DATA 150,196,450, 
,300,196,300,262,300, 
850 DATA 392,150,330, 
0,330,150,294,150,330,300 
860 DATA 300,196,300, " 
870 DATA SIEBEN,ACHT, 
BSO DATA 122,122,122 
890 DATA 122,122,122, 
900 DATA 122, (22, 122, 
910 DATA 122,122, [22, 
920 DATA 40,41,42,43, 
930 DATA 97,98,99,101 
940 DATA 106,107,108, 
DATA 122,122,122. 



50,196,450,392,150. 
!00 
349, 1050,392, ISO, !?£, 1 

262 
150,330,150,349,4 
NEUN,iEHN,BLlBE,OAM£,KQENIG,AS 
136,122,122,122,122 
137,122,122,122,122 

14c! 111! 122, 122, 122 

46,47,96 
,102,103,104,105 
110,111,112,113,114 

11C, 122, 122, 122,122 



00, 06040406 



3.C13E0B0B1 



I.247EFFFFFF 



262, 300, 330, 150, 294, 150, 



,150,196,450,392,1 



960 ! 

970 SUB ZEIT : : FOR 1=1 TO 1000 n NEXT I :: SUBEND 

980 SUB MUSIK(M);; FOR 1=1 TO 3 : : RESTORE 840 ;: FOR J=l TO 32 :: CALL KEY<3, M, 

N);: IF H=13 OR M=74 OR M=7B THEN SUBEXIT 

990 READ K,L :: CALL SOUND (K, L, 0, L*l .5,0, L*3,0): : NEXT J :: NEXT I 

1000 FOR 1=0 TO 30 STEP 2 :: CALL SOUND (- 100, L, t ,L*I .5, I,L*3, I): : NEXT I :i 5UBE 



1010 SUB CLS :: Fl 
1020 SUB MI SCH (Bt 
IE :: DISPLAY AT(14, 17): "ICH 

;: J=INT(RND*32)+1 
1030 IF B*CJ,1)="" THEN Bi(J, 

J=l :; I30T0 1030 ELSE 1Q30 
1040 J=INTfRND*32)+l 
1059 1F B*(J,1) = " THEN BtCJ, 



TO 24 :: CALL HCHARd, 19,32, 12) : : NEXT I :: SUBEND 
FDR 1=1 TO 32 :: B*CI, 1>,B*C 1,2)="" :: NEXT I :: RANDOMI 
:: RESTORE B70 ; : FOR 1=1 TO 3 : : READ C* 



: BItJ,2)=C* ELSE J=J+1 



>=C* ELSE J=J+1 
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i BBC.l 



!)=C* E 



: j=j+i 



r J>32 THEN 



2 THEN 



10B0 J=INTCRND*32)+1 

1090 IF B*(J,1>="" THEN B*CJ,1)="KAR0'' 
J=l :: C.OTG 1090 £_SE 1090 
1100 NEXT I :: CALL HCHARU4, 13,32, 12): : SL 
1110 SUB KARTE<C*,D*,I,J) ;! IF C*="KREUZ" T 
ELSE. IF C*="HERZ" THEN K=119 ELSE IF C*="K 

;--'.: .■* ■:.. ■ : - ■ \v-i ■ ■ -,.?.■■_ ■ ■ r ■, ■ 

ACHT" THEN RESTORE aSO ELSE IF D*='NEUN" Th 

1130 IF D*="ZEHN" THEN RESTORE 910 ELSE 1 

-"DAME" THEN RESTORE 930 

1140 IF M-'KDGMIS' THEN RESTORE 940 ELSE IF Dt="A5" THEW RESTORE 950 

1150 DISPLAY AT(I,J-2)SrzE£5):"t!!!'" :: CALL VCHARd-M, J, 36,5) : : CALL UCHARCI+1 

,J*4,37,5):: DISPLAY ATd+6, J-2)SUF.<3) : ">#4t*y" :: DISPLAY ATd + I, J-DS'.-: 

ll&O DISPLAY ATCI+5,J-1)5IZEC3);E* :: FOR K=T+2 TO 1+4 :: FOR L=J+1 TO J+3 ■■ RE 



)*CJ,2J=C* ELSE J=J 



K=I30 ELSE IF C*=" 

BEN" THEN RESTORE B 
THEN RESTORE 900 
r D*="BUBE" THEN RESTORE 



i ELSE IF D 



ELSE IF D* 



AD 



:: CALL HCHAR(K,L,ri):: NEXT L 
1170 SUB SZI<A$(,),BJ(,),A(,),E»,Ft,H F) 
1180 H=H+1 :: IF H>32 THEN CALL MISCHtB* t, )) 
1190 FOR 1=1 TO 9 

1200 IF <A*n,n=B*<H,i>AND A*<I,2)=B5>(H,2) ] 
))0R<E*=B*(H,1)AND F»=B*(H,2) ITHEN B»(H,1),BKH 21 = "' 
1210 NEXT 1 :: FOR 1=1 TO 9 
1220 IF At(I,l)="" THEN A*(I, 1 )=B*(H, 1) 
: CALL KARTEtA»(I,n,At(I,2),AII,n F A(I 
1230 F=F+i :; DISPLAY AT(2,4)SIZEI2):F 
1240 NEXT 1 :: CALL CLS :: DISPLAY ATM 
"KEINE KARTE" :: DISPLAY ATUB, 17): "NEH 



i(I,3>=Bt[H, HAND A 



1250 DISPLAY AT(20,20):" 
4,1B):"VIEL£ HAST[" :; CALL ZEIT : 
1560 SUB CZI(A»r,),B*(,},E*,F*,H,G 
IF H>32 THEN CALL MI 



I A*(I,2)-E*(H,2):: 
2DELSE 1240 
: SUBEXIT 

, 18):"DU BPAUCHST" : 
ZIEHEN=' 



DISPLAY ATC22,19):' 



L CLS : 



DISPLAY ATC1£,18): 



i DISPLAY AT(2 



FOR I 



TO 9 



Htwr, 



: H-0 : 



GOTO 1 



1290 IF (M(I,j 

))OR(E*=BJ(H, I)AND F*=B*CH,2))THEN B*(H, l),&i<H 21 = '" ■"■' r,r\r 7^,-7""'^' "' n " : 

13O0 NEXT I :: FOR 1=1 TD 9 

1310 IF AS(I,3>="" THEN At(I,3)=B*CH, 1): s A*tI,4)=B*(H,2) : : B*(H 1) BS(H 2)="" ■ 

: G=G*1 :: DISPLAY AT<2, l&)SIZEf2) :G :: 3UBEXIT 

• I :: CALL CLS :: DISPLAY ATC14, IB) : " 1CH BRAUCHE" :: DISPLAY AT£16 IS)- 
■KEINE KARTE" :: DISPLAY ATUB, 17): -NEHR ZIEHEN=" 

:H" :: DISPLAY AT (22, 19); "SCHON SO" :: DISPLAY AT ( 



1330 DISPLAY AT(20,20>! 



24, ia> : ' 



SUB l: 



I, J):: 



- HC-HARi-K, J, 32,5)8 : NEXT K 



i SUBEND 
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schosssn Oder vetiaQl ii 



Listing 



.,X2,X3,Y,Y1,Y2,Y3,A< 



100 CALL CLEAR :; CALL SCREEN(2)ii CALL MAGNIFV£3) 

110 60T0 140 :: A,B,C, I,J,Ta,SC,TR,RU, Tr,AN,K,5,T,S 

, AOS , A 1 1, A2* , A3t, A", A5S, A6* 

120 CALL GCMAR : : CALL VCHAR : : CALL CHAR : : CALL KEY : : CALL JDYST : : CALL POBI 

TIQN ii CALL SPRITE :: CALL COLOR :: CALL HCHAR :: CALL MOTION :: CALL SOUND II 

CALL DELSPRITE : : CALL LOCATE : : CALL CHARSET 

130 DATA FFFFFFFFFFFFFFFF 

140 PYtl>,PY[.5>=124 :: PX(1)=53 ii PYC2) ,PYC4)=144 :: PXC2W9 :: PYC3)=148 :: P 

X<3)=123 !i PJ<4)=158 :: PX(5>-192 



1=96 TO 121 :: READ At :; CALL CHARtl.A 



150 !' 

160 RESTORE 1670 

LL COLOR (12, 2, 2) 

170 CALL CHAR<64,-384492A2A2924438 I, ,79,-44007C444444447C\12&, 

,3,126,672):: CALL C0L0R(2,2, 13,3,2, 13! 

180 FOR 1=4 TO B :: CALL C0L0RCI.2, 13, 1+5, 16, 13) : i NEXT I 

190 DISPLAY AT(6,n:"'" , " , " , '"' l hd'fhjldn 



: NEXT I 



: CA 



200 D 



f AT(1 



.- I 



... DISPLAY AT(16,l): r ""-" J 'jbildfiprtlnnld'— ~~~ -"■**•" kcymeoqsumoom -v"^™— 

220 DISPLAY ATC23,1>:"— e"-BY-EDSAR*KL0PFEL-12/B4~~- :: FOR [-1 TO 1000 n NEXT I 

I! GOTO 250 
240 CALL DELSPRITEIALL):: CALL CLEAR 

250 RESTORE 130 ii FOR 1=136 TG 143 :: READ At :: CALL CHAR(I,A»)|1 NEXT I 
260 CALL CLEAR :: CALL CHARSET :: CALL CHAR(U7, "440044444444447C"): : FOR 1=1 TD 

12 n CALL C0LDR(I,16,2):: NEXT I 
270 CALL CLEAR :: DISPLAY ATC1.B): "VORBEREITUWSEN" :: DISPLAY AT [2, B): "=====- 



2S0 DISPLAY A 



. JOYSTICK EINSTECKEN UND 



FEUERKNQPF DRuCKEN I " 

OTO CULL KEYU,5,K):: CALL KEY(2,T,K 

S THEN C=2 : : GOTO 300 ELSE 290 

300 FOR I=i TO 5 :! DISPLAY AT(12,1): 



(15,7! 



350 D 



IF S=1B THEN C=l :: GOTO 300 ELSE IF T=l 
:. BUTE ENTRIEBELN S!E DIE" :: DISPLAY AT 
Y ATC21,B):"J0YSTICK NACH VDRN 



:" ALPHA -LOCK-TASTE" 
DISPLAY AT(19,4)i"UND LEGEM SIE DEN' 
!" :: GOSUB 1660 :i NEXT I 

320 FOR 1=1 TO 5 :: GOSUB 1660 :: IF Y=4 THEN 330 ELSE CALL HCHAR( 15,9,32, 16): : 

NEXT I :: GOTO 300 

330 CALL DELSPRITECALL):: CALL CLEAR :: CALL CHARSET :: CALL CHAR<127, "000402FF0 

204"):: FOR 1=1 TO :: CALL COLORd, 16,2); ; NEXT I 

340 CALL CHARt59,"000000007C",&0,"000000446C544444") 

DISPLAY AT(4,B):'WELCHES SPIEL ?" ii DISPLAY ATC5, a) I •========== =====* 

DISPLAY ATtn, 5)i-l = TONTAUBENSCHIESSEW :: DISFLAY AT(15,5): 

ESSEN" 

370 CALL yCHAR(ll,4,127):: CALL C0L0R(12, 16,2) 

3B0 CALL KEY(C,K,S)n IF K=18 THEN 400 

390 GOSUB 1660 II 

/2,4,127):: GOTO i 



3 THEN 3B0 ELSE CALL VCHARC1 



2,4,32):: CALL VCHAR(13-Y 



460 DISPLAY A 
hhhhlihhhhhhhlihmihhhhhhhhhhhhhhh: 



470 DISPLAY AT(9, 
4S0 DISPLAY ATI 



iiXfci 

510 CALL SPRITE (ft' 
520 CALL 
1,174,166, #2- 
530 CALL SPR! 
540 DISPLAY 

560 FOR RU=1 TO 5 

570 DISPLAY ATQ,I 

IZ£(3):TR 

5B0 CALL SPRITE (*: 

590 AN=2-(TT=5) 

600 CALL KEYCl.K,! 



?ITEI#6, 



610 CALL KEY(C,K,i 
620 FOR 1=1 TO 50 
£30 CALL 5PRITE{#2, 
670 
640 IF TT/2=ir 
650 CALL SPRIT 
660 CALL SPRITE (#3, 
670 FOR 1=1 TO 33 



READ AS 
: READ A! 
L COLOR C 



: CALL CHARCI.A*):: NEXT I 
:: CALL CHAR (I, A*);: NEXT I 
13,2,2,11,13,5, 16,2,9,4,13, 10, B 



,15,13,12,15 



MhlSAAhhhhe*^ 



54, #27, 132, 11, 150, 190, #26, 132, 11, 174, 73, #25, 132, 1 



6, 16,24,20,0,1 



ZE(3):TS :: DISPLAY AT(1, 16>5IHE 
60, 16,PY(RU),PXCRU)) 



i DISPLAY AT(I,26)S 



<=9 THEN 330 ELSE 



r K=19 THEN 24 



THEN 660 
100,2,107,30 
100,2,107,22 



-5,-20):: TG=TG+1 
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6B0 CALL JOYSTCC,X,Y):: CALL MDTIONOH,' 
If (S=0) + CAN< V THEN 700 
690 SC=EC+1 :: CALL SDUND(80,-7,0): : AN 
700 NEXT I :: CALL DEL5PRITE(»2,«3> " 

NDTIDN(HI,0,0):: NEXT I :: NEXT TT 
710 CALL DEL5PRrTEr#2,#3> 
720 DISPLAV ATn,B)SIIE(3):T6 :: DISPLAY ATC1, 16)SI2EC3):SC 



I*. 15 :: CALL KEY(C,K,S>;: 



AN=AN-i : : 6GSUB BOO : 
FDR 1=7 TO 16 :: CALL 

: NEXT RU 



; DISPLAY A 



□ BEGINiyfl" 

750 FDR J=l TD 

760 NEXT J 

770 CALL HCHARi 

):: IF StT THEN 790 

7B0 NEXT J :: GOTO 740 

790 CALL HCHARH2, 

:: GOTO 550 
BOO CALL 



=XH-6)*(Y2>=Ym(X2<Xl + lB>* 
=Xl-10)*CY2>=Yl)*<X3<XI+2): 
: RETURN 

B40 CALL 5PRITEC*2,10S,2,Y2,X2,-20,3,S: 
BSO CALL SPR1TEI#9, 108,2, Y2.X2, 30, -3,1" 
2t»ii TR=TR+1 :: 1=1+5 ': : RETURN 
B60 CALL SPRITE(ft3,108,2,Y3,X3,-I5,G,( 



CALL SPRITE(tt: 
):: TR=TR+1 
DATA O0000O0003OF3FFF.030F: 
OEOFOFBFCFEFF, COFOFCFFFFFFFFFF 
O DATA OOOOOOOOCOFOFCFF 



■■ I I 



910 DATA FTTFFTTFFFF7TTFF,FF7F3I 

3070F1F3F7FFF, 

920 DATA 0E314444B4B4BFB4, B4444< 

930 DATA 03061D373D7FDFF7,DD7F5' 

OE, 0,0,0 

940 DATA 



F, 0,0,0 
950 DATA FFFEFCF8FOEOC0B0, FFFFFI 



%0 DATA 0000 1D7F; 

970 DATA FFFFF7E7E7EFFFFF, FFFFEI 



990 CALL CLEAR : : 
: NEXT I 
1000 CALL 
8"):: CALL CHARIB: 
CALL 



04040202020201010 



050 CALL CLEAR 



CALL KEY(l,K,S)!i 
105,10):: FOR J=l TO 10 !J 

12,105,10):: DISPLAY AT(14,4] 
1,#2,Y2,X2,#3,Y3,X3) 



" !! DISPLAY ATU4,4):"PRESS ANY KEY T 

_ KEYC2,K,T):: IF B+T THEN 790 

10 !i CALL KEY(1,K,S):: CALL KEY(2,K,T 



■ . : ■-■ 



RESTDRE 1560 



),2, ¥3, X3, -I2,25,#13, I0B.2, Y3,X3,7,2I 
5,100,2, ¥3, X3, 30, -25, #16, 10B.2, Y3.X3.-7,- 
00 i B3C2C7E7E7EFF , 1 03070F 1 F3F7FFF , BOC 

7 , FCFCFEFEFEFEFEFE , 3F3F7F7F7F7F7F7F, F 



1F0F07030 1 , B0C0E0F0F8FCFEFF , FFFEFCFBFOEOCOBO, 



FF7F3F1FOF070301,0 



BEDF37F.7F3F'- TAFFFFDFBEBC, 



E7E7F7FFFF , 00000OOO03OF3FFF, OOOOOOOOCOFOFCFF, FFF 



9B0 DATA 0303030303030303, COCOCOCOCOCOCOC0,".::0"'):-:';;JC7CF::MD,C0COCOCOEOFOBOBO,OC3 
C7C7C7F7F3FOF,O,COF0FSFBFBFBF0C0,O 

: FOR I=SB TO 135 :: READ A* :: CALL CHARU.A*)! 



"00000000000000000000000000000000000000000000000000 1B3C3C3C3C1 
, "0044442a 10 1010 10 ") 

"0046C949494949E6", 62, "00003030003030") 

[020 Ai*="40402a:':i-.io;-K€":'404::'ro20ioioooooooooooooooooooo l 

OB04020 1 0000000000000000000000000000 " 



.030 A3*="0 

. 040 A5*= " 0OOOOO0C30C0000000000000000000000000000000000000 " 



1 1 ooooooooooodooooo " 



A21 ="0000804020 10 
A4i="00000000FC00 
A0*-"0B0B0B0804O4 



050 A6*="000010102020404C::' on 00 00000000000' 



CALL CDLDR<1, 13,2,2,2, 1 



Tl 99/4A 



1090 DISPLAY' .gggggiJfreeeeeiggggggggeigggglSSgttfSesmSigggggggee 



its SS?3SSS?33?3S??8S&e 

1100 display ftra3,in" 

:<4 ii 2ry liZUVili 

) DISPLAY AT(17,1I:" 

iiiii Hi tiiiiiii 

1120 DISPLAY AT(21,f): n 
30< Li 50< ii 70<ii= 
3 CALL SPRITEC#26,4; 



gStgQXSBIpitS" 



7,»25,104, 16, 



104,165,1128,1 



1170 C 
240 



HBO CALL KEYfC.I 
1190 CALL SPRITE' 
1200 CALL KEY(C, 
3>+2*<RND>.51:: 
1210 CALL KEYCC, 



«-2*CRND<=. 



X,#3,V,X, 



: IF KOIE THEN 1170 
6,16,133,142) 

: IP KOIB THEM 1220 ELSE CALL JDY5T(C,A,B) 
Y=2*<RND>.5)-2*fRND<=.5)-B 

IF KOIB THEN 1220 ELSE CALL HOTIONCtl, Y, 
,Y,X)i: SOTD 1200 

220 CAL.L MaTioN(#7,-40,-10>:: CALL MDTiaN<*l,20,20,#2,20,20,#3,20,20,#4,20,20,* 
,20, 20, #6, 20,20) 
230 CALL MDTIDN(#7 
240 CALL MOTIONCm 
.,A24) 

250 FOR 1=1 TO 2 :: NEXT I : 
CHARC36,A4») 
260 CALL P05ITIDNC#7,5Y,SX):: CALL LDCATE(tt7,SY,E):-2): : 
: CALL CHAR(36,A5*):: CALL L0CATEC#7,SYn,SX-3) 

270 FDR 1=1 TD 2 :: NEXT I :: CALL CHARC36, AE*> : : CALL MDTT0N(tt7,4,-3)i i FDR 1= 
TO 10 :; NEXT I ;: CALL M0TiaNC#7,O,0> 
230 CALL HOTIDNttH, 0, 0, *2, 0, 0,113, 0,0, #4, 0,O,*5, 0,0, #6, 0,0, 117,0,0! 
290 ON RU GOSUB 1300,1340,1370,1420 :: CALL HeHAR(3-iTT>3),2+2*TT+7*<RU-l>+6* (T 
T>3),4B+5C);: Y1*Y1+5C i: SOTO 1460 
.300 IF (SY<I09) + (SY>il3H-CSX<59)*<SX>62>THEN 1310 ELSE SC=10 : 



: CALL CHARC3S.A 



: FOR 1=1 TD 2 : 



: FDR 1=1 1 



NEST I 



: NEXT I 



: RETURN 



) IF (SX-59! 
1320 IF (9X-S9: 
(SX-59: 
1340 IF (SY<97: 
■ CSY<94: 
1360 IF (3X-120)"2 



"-2+CBY-lIQ)"2>49 THEN 1320 ELSE 5C=8 :: RETURN 
'2t(SY-110>*2M2I THEN 1330 ELSE SC=6 :: RETURN 
A 2+fSY-110)*-2>293 THEN 5C=0 :: RETURN ELBE BC-4 



1370 I 



) [F t 



iksy; 



1390 [F 
1400 IF tSX-1 
i IF (SX-L 
1420 IF (3Y<90: 
1430 IF (SYCB9: 
■ CSY<86) 
" (SX-216)"2+' 



(SX<llS)»fSX>12: 
03)+<SX<115)*(5X>12' 

:SY-951-2>145 THEN SC; 
I71)+(SX>172; 
3f-_) + (5*a70)-KSX>l 
2>49 THEN 1. 
SV-941-2M21 THEN 14 



THEN 1350 ELSE si>;o 

THEN 1360 ELSE 5C=B i 
: : RETURN ELSE SC-6 
THEN 13SO ELSE SC-IO : 
THEM 1390 ELSE SOS : : RETURN 
■ ELBE SC=£ ; : RETURN 
ELSE SC=4 : : RETURN 



RETURN 
RETURN 

RETURN 
RETURN 

RETURN 



:SY-34)-2>293 THEN SC-0 :: RETURN ELSE SC=2 : 



92)KSX<215) + (SX>21£ 



THEN 1430 ELSE SC=10 : 
THEN 1440 ELSE SC=S : 
THEN 1450 ELSE SC=6 : 



'>95>+CSX<211)+CSX>220)T 

KSY-9n'2>145 THEN SC=0 :: RETURN ELSE SC-4 : 
1460 IF (RU=4).t(TT=6>THEN DISPLAY ATC6, 1B)SIZE(B>: "T0TAL> " :: 
(Yl>9) + (YI>99))SIZE(2-(Yi>9WYl>99)):Yl 



2,10)SIZE«>:"GAME OVER' 


: DISPLAY AT<14 


4): "PRESS ANB KEB TD 


:: CALL KEYCl.K.B)!! CA 


L KEYf2,K,T*!: 


IF S*T THEN 1540 


2,K»SIZEC9)t*8 tec 


: FOR J=l TD K 


:: CALL KEYCI,K,S>:: 


IF S*T THEN 1540 






3TQ 1490 






2,lt»8IIE(5)«."f Set" 


: DISPLAY flTCIl 





94 I I aV)/4A Computer Komakt 2-3/87 

1470 FOR 1=1 TD 400 :: NEXT I 
I4B0 NEXT TT :: NEXT RU 
1490 DISPLAY A 
BEGINyii" 
1500 FDR JM T 
1510 NEXT J 
1520 DISPLAY A 
CALL KEV<2,K,T 
1530 NEXT J : : 
1540 DISPLAY A 
/q iiizySiiir" 
1550 DISPLAY AT(3,1 

:: CALL HCHAR<6,20, 103, 10): ! GOTO 1140 

1560 DATA OOCOFOFBFCFCFEFE,FEFEFCFCFBFOCOOO,7F7F3F3F1FOF0300,00030F1F3F3F7F7F 
1570 DATA 0,0,OFOFOFOF1FIF1F1F,3F3F3F3F7F7F7F7F 

1560 DATA 7B7B787B3B3B3B38, ICli [I ! I ■ i I '■. I, ',06060C0C0C1C1C1C,3B3B393B7B7B7B7 
8,0,0 

1590 DATA COCO, 0,0, 0,0,0,7F7F7F7F3F3F3F3F, 1F1F1F1F0F0F0F0F 

1600 DATA FFFFFFTFFFFFC38 1 , FF7F7F7F7F7F7FFF , 8 1C3FFFFFFFFFFFF , FFFEFEFEPEf fcf LFF 

1610 DATA 1B24424343422418,0,FEFEFEFEFEFEFEFE,FEFEFEFEFEFEFEFE 

1620 DATA OOCOFOFBFCFCFEFE,FEFEFCFCFBFOCOOO,7F7F3F3F1FOF0300,00030F1F3F2F7F7F 

1630 DATA O,0,FEFEFEFEFEFEFEFE,PEFEFEFEFEFEFEFE 

1640 DATA 0O0OO000030F3F7F,6o000000CQFOFCFE,OlHOB0COC0E0E0E0,E0EOEOCOCO8OBOOl 

1650 DATA FEFCF0C,7F3F0F03, 070707030301018, B001 01 0303070707 

1660 CALL JOYSTtC,X,Y):i RETURN 

1E70 DATA 00O00Q7C921O1C1O, 1010101010102800, 0000003B44B2a2B2,B2B2B2B282443a 

1EB0 DATA 00000062C664544C , 4444444444C68200 , 0000001 0386C4 444 , 447C7C4444C68200 

1690 DATA 0000004284848484,B4B4B4B4B44A3200,0000003048C84B5O,&07B4444C44830OO 

1700 DATA O000O0FC42404040,78404O404042FC00,OOOOOO3C42808O40,3BO4O2O2B2443B00 

1710 DATA 0000001824424240,4040404242241800, 00000082C6444444,7C444'14444C68200 

1720 DATA 0O000044GC101010,101010I0106C44,0OO0003B64A22222,22222222A2643B00 

1730 DATA 0000003C428080B0,BCCAB482B24438OO 



albs 



IMMER NEUESTE HARDWARE FOR DEN TI-99/4A D1REKT VOM HERSTELLER 



Neu: Die exteme 80-Zeichen-Karte ist da! 



Computer Kontakt 2-3/ 



Programmierbare 24-Bit-PIO 




IH/Cftjrt 






Us 


















L^ 


t n 









* 


































M 












1 




"IT T ^ 






24 


-Bit-P] 


O (programmi 



>r) I 



Computer Konisix! 2-3/8^ 



Assemblerlisting 



Wator 



i2x2^Qusdralcaufgclr 



Die OXu-Kaiasm>phe 






Computer Kontakt 2- 




Computer Kontakt 2-3/87 




Bausteine 
dcsTI99/4A 



; gebttme 16-Bit- ist cine Speiialitii 



KLEINANZEIGEN 




KLEINANZEIGEN 



Computer Knritakt 2-3/B7 







JoM/saftl 



MS =£«wsr 



ssri^srt 



IWj srMSjTjSrS 







KLEINANZEIGEN 



Computer KOlltg 




Computet Kontakt 2-3. 



KLEINANZEIGEN 



I 

■ 



1050 TURBO 



Floppjrspeeder fur 

o-.ible Du7,3iL.v, 70000 Be T"."liBOlJKIVE, ])ru=k 
und vieles mehr! Komplett 
49 DM !! Gratisinfo anfor 



I 



Klainanzaigan 




s[z^si 


— 


JupitersoflGdbR 

$oft» ar «Vi>6°90DM 




llPkjf 


Jupi tersoft GttbR 
Bernd D«nk 

35^'A'?£cd&-LaLj>isi 



Bestellschein f iir private Kleinanzeigen 





fizUlftfl^LJIeLt ' ' r »b.AlUJi.r..L 
















toe FUNDGRUBE 


Computer KontaktS-3/87 






1 ■ =-"- -jE^srr- Jtfl ■ CI IMn/^DI IDcBl .-ens L: I.T-ir-R~ K:.i:-r- - /imi 


™d^]™.' 1 Ltf!: l -, i i ,, '.. k!l '-:' 


Schlaue Kabeleien SE^Sf""*' 

Piutiknre bei dei Vcikjidung ''- 1 ' Wilis' ; : o i:;vii :.;.■.:■. Vj.ijl-m ,;.,d::d[tr wurde. Durch Kum- 
von Computer und Peripheric icjraitdeii ul-i-Jei- kasirs. Milri Liiiialioi! dicier Adapitr ktjn- 


Neue 
Mailboxen 

;. ■: . ■:.-■■ 




3 


Inserenlen- 

verzeichnis 



T.S. Datensysteme-Vertriebsgesellschaft mbH 




Denisstrafle 45, 8500 N 



J ( 




Zci* s 



